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PREFÁCIO 


Para que voce não deixe de aproveitar os momen 
tos ae tolga e lazer na companhia agradável do 
seu microcomputador, desenvolvi e selecionei 30 
programas com diferentes mecanismos de funcio 
namento para jogos de sorte, azar,inteligencia, 
animados com movimentos, etc. 

São programas para 2K e 16 Kbytes de RAM, uns 
com e outros sem SLOW. 

Além dos programas em Basic, voce encontrará al^ 
guns no código da máquina ( Z80 ) que lhe darão 
uma nova visão em linguagem de programação. 

Espero que voce aprenda alguma coisa,brincando. 

Mãos ao micro e divirta-se. 

Delio Santos Lima 
Caixa Postal 100 
12 200 São José dos Campos 
SP - Brasil 


IMPORTANTE: 


Os programas, após serem digitados. 
„ados por GOTO a Unha goe contenha 


deve» ser gra 
uma instrução 




Nas listagens, as instrues SAVE contem o nome 
do programa, estando a últiw letra e. video in 
verso. Oigite-a «or.aU.nte e isto ocorrera, apos 

a gravação 


Os programas, excluinao se 
todos listados em uma i*pr 


SOH POR SOFTWARE.foram 


essora TIWFX 


SINCLAIR. 


modelo 2040. 
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Destrava softnare, 16 <. 
















Timex announces 
a new personal printer. 

Just for the record. 



Now Timex brings you a printer to go with your Timex Sinclair 1000'“ 

or Sinclair ZX81 

The new Timex Sinclair 2040. 

32 columns wide. Two lines per secood. With full graphics and text capa- 
bility based on a dot malrix print mechanism 



The pc ice just $99 95. 

The TS 2040 operates silently m two drfferent moòes: 

□ Full-screen printing with single-key copy command. 

□ Program-cootrolied printing mode altowing for cust- m controí 
o(the printing format. 

A printer that can grve you a permanent record of your Computer 
programming at a very affordable price. 

Just wri at you'd expect from Timex 










A IMPRESSORA TIMEX 


Mo livro Aplicações Sérias para 1 K e CF tive a 
oportunidade de incluir una pequena análise da 
ZX PR1NTFR, " a original i r nã çèmea" da TK PRIN 
TER, anunciada err 82. 

As listagens deste livro, foram feitas na ira 
pressora recentemente lançada no mercado ameri^ 
cano, a TIMEX SINCLAIR 2040. 

Para efeitos comparativos, inclui a listagem do 
programa Som por Software na ZX PRIME.R. 

CARACTERÍSTICAS 

Oimensões : 14 X 19,5 X 4,7 cm. 

Tipo de impressão : termo gráfica. 

Papel : térmico par3 impressão preta. Rolos de 
25 metros por 11 cm. de largura. 
Caracteres : 32 por linha, incluindo símbolos 
gráficos, em 3,2 cr., contra 9,4 c». da 
ZX PRINTfR. Imprime 3 linhas por polega 
da contra 9 por polegada ca ZX. 

formação des caracteres : matriz de pontos 6X6. 

Velocidade de impressão : 2 linhas por segundo, 
i.e., 64 caracteres por secundo. 
Interface : incorporada à impressora. 
Alimentação : independente, 24 V AC, 1,2 Amp. . 
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COMO FUNCIONA 



0 grupo iapressor téraico e de avanço do papel 
n2o foi especialaente concebido para esta aáqui 
na e já estava disponível no lercado inglês des 
de 1982. 

0 cabeçote de iapressão trata-se de ua cabeçote 
téraico, ou aelhor, de 20 cabeçotes téraicos ea 
linha, coao se fossea ua pente. Cada cabeçote 
possui a capacidade de iapriair ua ponto. Este 
pente desloca-se horizontalaente de forma que 
cada cabeçote individual percorra uaa superfí 
cie de papel equivalente a 2 caracteres.Isto ex 
plica a sigla 2040. Vinte cabeçotes e 40 carac 
teres por linha. 

Este grupo iapressor-propulsor f acoplado a In 
terfdce TIMEX/SINCLAIR que está incorporada 'a 
impress’ora, só produz 32 caracteres por linha , 
na posição central do papel, deixando nar 
ge* de 1,5 ca. aprox.,de cada lado. 
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THE ONLY PLAIN PAPER, DOT-MATRIX 
PRIHTER FOR THE TIMEX/SINCLAIB SYSTEM 



Mindware's MW-100 gives you the 
ability to make hard copies 
ot programs, data mailing 
lists. and screen 
graphica 


SPECIALOFFER: Ordera MW-100 printer for$119.00 
and get your choice ot any two Mindware software titles 
FREE; plus 5 FREE rolls ot paper (comparable retail value. 

Thousandsof MW-100's havesok) nalionally at a retail pnce ot 
$129.95 (Printer alonet 


IMPRESSORA AMERICANA PARA M ICROCOMPJI ADORES 
COM LÓGICA SINCLAIR 
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A REVISTA DOS USUÁRIOS DO TK 




Para 2 Kbytes de RAM com SLCb. 


Este programa gera diferentes labirintos. 0 con 
trole do deslocamento está nas teclas 5,6,7 e 8. 
Para um maior deslocamento use as teclas -J e K+ 
respectivamente,para baixo e para cima. 
















114-0 

NEXT M 

1150 

NEXT N 

1200 

FOR r-1=0 

1210 

PRINT hT 

1220 

NEXT M 

1400 

5L0U 

1500 

FOR N= 0 

1510 

L£ T R = IN' 

1515 

IF N=0 • 

1520 

PRINT RT 

1522 

LET U=R 

1530 

NEXT N 

1550 

PETO RN 

5000 

PRINT H 

h HIM H 0 , C> IG I T e: 


:0 


23 STEP 3 
I RND +19 j +1 


» 1 


1,0;"UC.ERROU G C 


X , Y 


i hT X i í « 



5301 PRINT hT X.'y,"B ' PT 
5002 IF INKEYS < > “E" THEN GOTO 
00 

500 3 PhINT h i X ; 'i ■ 

5005 LET V=Y-7 

5000 HRIN i H ■ c! 1.0 E $ 

5010 GOTO 570 

F00--5 PRINT WT 21,0, "OK. OüTRfi 
Z ~ DIGITE 5._ 

600-5 PRINT H! X, v ' 

6005 PRINT hT 21.0, _ 

6 010 IF INKEy $ < > “S“ THEN GOTO 
»•> 

«L- «J 

5020 CLS 
5030 RUM 
7000 

7005 PRINI 
■ESGOTOU” 

7006 PRINT PI 
7005 PhINT h! 

702*2 PRINT Hl 
IGITE 5" 

7035 IF INKEY $ < > "S” THtN GOTu 
00 

-704.0 GOTO 6020 
8000 5H l J£ ' LHt IP INTg 

5010 C1_ 5 
5020 RUN 




60 


ET T =0 


H 1 


20,5 . 

20,18; *1 
X . Y ; s D ; PT X .Y 

21.0;” outrh uez? 


B 


L> 

70 


15 






■ 

* 

Para 2 Kbytes de RAM, co» ou se» SLOW. 

Siga a trilha coloca no vídeo 7 pontos que repre 
sentam uma trilha sinuosa a ser seguida. Voce 
rá percorrendo a trilha da esquerda para a direi^ 
ta e devera passar sobre todos os pontos denarca 
dos, ou, então, perderá u»a das tres chances e vol_ 
tará ao início. 

Voce pode deslocar-se e» sua trajetória para ci»a 
pela tecla K+ # ou para baixo pela tecla J- 

■ 1 i 

1 

HL^HNÜ 0 

0H P - M -’ 1 I Q N E - E T K ONICH 

1 cem cpCIEIDJ P.EPROCJZIC 

2 PP IN” P. 6,0; ‘5IGP H TRiL 

MH 
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3 SLQW 
4- PRINT . , 

5 PP XNT L ! oÉ ElLh ~ — 


+ " 

6 INPÜT P$ 

7 LET M=0 
5 LET H=0 
■— L- L o 

10 C-1M X C 7 1 

11 PRINT hT 15,0, ,! -";hT 15 O 

+ '• 

12 FOR N = 1 TO 7 

13 LET >: (N) =INT i.PHD*3i 
14- LtT Y=>:(1) 

15 PLÜT N*9 ÍX«Ni.+S) 

16 NEXT N 

17 FOR Z=i TO 63 

lo X F * Z / 9 } = X NT í Z .-•*9 J THE N 7 
UB 27 

19 PLÜT z : íY+3) 

20 LET K =V 

21 LET ¥=¥-(! RND INKEY $ = " .j " ) 
(1 HND INr EY$=* : K*‘) 

22 UNPLOT íZ-1). CY+01 

23 REM 

24. NEXT Z 

25 LET h=h-f 1 

26 GOTO 30 

27 IF Y<>>, t Z/9 • THEM GOTO 29 
26 RETÜRN 

29 LET M=M + 1 

30 PRINT hT 19.0 - : m . ‘ 

UMRNü "; H 

31 INPÜT Pi 

32 IF h=3 THEN GOTO 54- 

33 GOTO 9 

_ _ 3 4- PRINT : ‘UC GR ST OU RS 3 OHRN 


35 

PR IN” 

" uuTRR UE 

36 

INPÜT 

P* 

37 

IF P$ 

£ > s * 5 : * THEN 

33 

39 

4-0 

CL 5 
RUN 

S H 11 f- 

TRIi.hB M 

4-1 

RUN 
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FORMULA MICRO 


Para ? Kbytes de RAM con* SLOW. 

Voce deve dirigir seu r ormaia M icro pela estrada 
que rodara no viceo (por Sv^ROLt ! . 

A diregão é dada pelas tecias e M=- . 

Após sete colisões acaba a brincadeira. 
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5 REM MICRON ELETRÔNICA 
10 LET H=17 
15 LET I=H 
20 Lt= ' B = 10 
30 LET C = 1 
45 LET K=0 
50 i_ET E = ls 
70 lET 3=6 

50 PRINT RT 15,5 "FGRhüLR MICP 


105 5i_0W 

110 LET G=G+£#Rf4D-cíKND 
120 - K -i. *4 ' Hl c i ? G J "1 
1 pp IN ' H H —C • 11 
14.0 PRINT hT h,E, ' ! 5j'* 

150 LPT 1=6 

160 Lt! P = 6 - <INKEY*= , ‘N“ s + *. INKE V 
170 I?- 0 = 2 i -nN -ET G=i=: 


160 

IP G>25 

- ww >.: CT l~- -~1 C 

• ' i P4 »_ L_ ! ’_T — C 

200 

l" * *M 1 t » 

K j_ i_ 


210 

ppir-r pt 

H 5 . 

220 

IP PEEK 

PFf k. 1 6 393+256 + ^ 

1SÍ 

3 y 9! =0 M 

EN GOTO 110 

300 

RRJf'4 pT 

10,20; ■*C0LI5hü" 

320 

_E” K =- - 


330 

IF K =5 T 

h E N G OT0 50 0 

5 4 0 

FOR N = 1 

TO 30 

350 

NEXT N 


360 

PR I-..T PT 

10,20.“ 

565 

HKINT hT 

H : p ; 

370 

GOTl 110 



505 PRINT PT 21.0 .V.V.V.V.V.V 

.v.v.v.v.v.v.v.v.v.v 

510 SRINT HT 21 0 ■AW.V.W.V. 

w.v.v.wAv.wm 

5c5 üOTü ^-00 
39 y 5TDP 

900 5HUE FGRMULfi MICRfiS ' 

920 RUN 




BOMBARDEIO 


Para 2 kbytes de RAK cot SLOW. 

Dez pilotos suicidas passarão ao alcance da sua ar 

rna, que disparará autoiraticanente. 

Para corrigir sua pontaria use as teclas e H> 




+ 
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(RND *13 


14-2 PR IN i H £ , 0 ; -'KhHIKhZ 
N , ' DESTRUÍDO iS) •*: X 


145 

150 

PRINT H“ 

FOR 1=1 

4 l 0 , 

TO 20 


150 

PRINT PT 

21-1 , Y; 

= . + . 

170 

PRINT H” 

5 ,I;hí 


ISO 

H RI NT h 

£ 1 - 1 .Y 1 

i. «i 

182 

PRINT H“ 

5 = 1 ; 

si 

190 
= ‘N 

LET V =Y 4 - 

CINKtY$ = 

" M ") - ( 

400 

t r i V." T 

O.! * 1 J- 

ti OR 5 < 

20 -1 ) 

GOTC 

’i •= 

.« £1 *L' 



I~V cr 
iZL %L* 

FOR K =1 

~Ü 7 


210 

PRINT hT 

.s -i. « DU 

UUUUUM 

215 

PkIN ' h 

■ *** . i • l-lli 

i ± , BBi 

wwmmsi 

220 

NEXT K 



230 

LET X=X+ 

*« 

j. 


240 

GOTO 260 



250 

NEXT I 



260 

NEXT N 




1 '4 


•w/wy-v. ;w.v.v. 


THEN 


262 

PRINT ■, 

2 6 3 

PRINT 

265 

PRINT ! E 

270 

PRINT *’E 

250 

PRINT . , 

E NEU LINE” 

290 

INPÜT P$ 

300 

CL 5 

310 

RUN 

200 

5 h U E "hU 

910 

CL 5 

920 

RUN 


EPhM DEZ £•■ 

CRPRRRM "; 10 -X 
OUTRR VEZ?".,'D 15 


hS' 


21 








conheciiento, os jc< 
ui tanto lentos, qua 
rão seria u«a excess 


borados e» 


200 

LET V=13 


205 

LET X = r 


£10 

LET 1=21 


ii- 

LET K = 1 


d — Z 

LET L=K 


££“= 

jnplüi < ,z 


-- —- r\ 
— t» 

1_ET X=X+K 


£4-0 

LET Z=i+L 


£50 

PLOT X.Z 


£60 

IF Z > 40 THEN 

_ET K = INT 

3-1 í 
£64 

IF G = 11 “nEh 

GOTO 400O 

£65 

IF Z 40- THEN 

LET L = -L 

270 

IF X < 3 DP X:- 

£4 THEN LE 


275 IF Z - dl THEN GOTO £90 


280 

IF xov 

RND X 

< >Y + 1 

THEN GÜT 

0 100 





288 

LET i_ = -L 




Q = 

PRINT PT 

11 . « 

INT ÍY 


2 9 8 

IF INKEy 

í = ,: F " 

THEN 

5T0P 

300 

_ FT Y =Y + 

! i RN! 

[> INKE 

Y $ = " «T 1 ) - 

1 HMD INKEví 

= N 



305 

LET Y = r> 

i £ hNí 

t 1 : i • 

3 INKE 

Y$= '8" ) - 


\ £ RND INKEY$ = ‘ : 5") 

310 PRINT R7 II. i I MT (¥/£).', ■ 
3£0 GOTO ££“ 

1000 LET H$=” 

1003 UNPLIT *, Z 
1004- LET lT=Dt! 

1005 PRINT hT 18.4.; EI 1 1 BOLh*' 

1010 FOR N = 1 TO 100 

1012 NEXT N 

1030 PRINT hT 18.0;H$ 

104-0 1= 8=5 THEN GOTO £000 

1050 GOTO £00 

2000 PRINT ,, PERDESTE.” 

£010 INPüT P$ 

£ O d 0 CL5 
£ O w* 0 K U N 

5000 5RUE PRREDhB" 

5010 RUN 

Em algumas rebatidas voce poderá ganhar uma raque 
te extra, até que esta seja sobreposta pela que 
ficará se movendo. 
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GITE NtU 




hRC-h L : h 


3BREM MICRüN EL=TR 


i~: r-j 

U ! A 


C-H 


i ; líJ 


X 

•• »T 

x -L 

.1 

Xw 

13 

14- 


DIM Ei 

— J 



F G R M = 

• : I 

X Í 

! * SK *= 


30 

PR IN i 

WA 

f 


NtXT M 
PR INT 

PT 

•5 

X 

,29 

PR IN 

P: 1 

2 


F R INT 

RT 

3 

,29 

PR INT 

PT 

A 

*29 

PR INT 

P;T 

5 

? 29 

r-. r*. t *. p- 
h K ií * í 

^~ 

0 


Tfc.T 

kKÍ! M 

H ? 

f 

, 29 

FOk n=i to 

30 

T K iT" 

- K Ir< * 

t * «A • 

- * *.w. * 

5S 




15 NEXT N 
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16 

PRINT 

st 2 , 0 ; -rr" 

17 

PPINT 

hT 4-, 0; "fj*" 

18 

PRINT 

PT 6,0; “ff 1 " 

19 

PR INT 

H~ 15 0;"DIGITE NEU L 

INC P - LAR' 


“• *"2| 
c. VJ 

INPUT 

~P* 

2TBF0R V 

= 1 TO 3 

22 

PR INT 

PT Y4c ,5iY) ; •' 

23 

PhND 


24- 

LET X 

= INT Í3*RND) -ri 

25 

LET B 

Cr) =B CY) +X 

26 

PR INT 

PT Y*2 , 5 ÍY); ' ff 

a i 

IF BA 

tf) >=27 THEN GOTO 31 

23 

PEM 


29 

NEXT 

f 

30 

GOTO . 

21 

31 

PRINT 

PT 10,4.;“ Q VENCEDOR 

EH O 

N» "; Y 


32 

PRINT 


33 

PRINT 

PT 18.0; * ! ÜÜTRP uez? 

DIGITE NEU 

LINE" 

34- 

INPUT 

P* 

35 

CL 5 


36 

RUN 


-7 

•J í 

SftUt 

‘ CORRIDS" 

38 

RUN 



A 1istagea é para uso no «odo SLOW. Para FAST re 
escreva: 

1 FPST 
28 INPUT PS 

e digite New Line sucessivaaente para obter o des 
locaaento. 


OS SÍMBOLOS GRÁFICOS: 

linhas 16,17 e 18 GRAPHICS SHIFT E, GRAPHICS 
SHIFT E 
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roleta russa 


Para 2 Kbytes 


de RAA coi SLOW 










160 PRINT 

160 PRINT hT 10. 0 ;"PhRh DISPhPR 
rt","DIGITE D *' 

165 PRINT “khRh PhRhR"/ DIGITF 
P“ 

200 INPÜT P$ 

210 CL5 

24-0 IF P$=‘P“ THEN GOTO F00 

250 IF P$="D" THEN GOTO 300 

260 GOTO 14-0 

310 GÜSUB 1000 

320 LET X = INT (RND*21 

322 FOR N=1 TO 6 

330 f-üR Z = 1 • 0 6 

34.0 PRINT hT 3,2+2.;"-“; 

350 IF N=3 RND 2=5 RND X=1 THEN 
PRINT "BUUMM" 

355 IF 2=6 HND N=3 RND X = 1 THEN 
GOTO 500 

360 IF 2=5 THEN PRINT "CLICK" 
365 NExT z 

374- Ir N < >6 THEN PRINT RT 3,2;“ 
330 NEXT N 

^390 PRINT RT 12.0;"UC E5CRP0U U 
I U u • 

392 PRINT "DIGITE ENTER" 

394- INPUT p$ 

395 CL5 

396 RUN 

500 PRINT "MEDROSO•" 

510 FOR N=1 TO 3Õ 
520 NEXT N 

530 PRINT ,, m 5h0 BhLhS DE FE3TI 
n ■ 

543 GOTO 392 

310 PRINT RT 2.13;"B" 

320 FOR N = 1 TO 50 
330 NEXT N 
350 CL5 

370 PRiNT !i aa^ ^Hra a 
380 PRINT 11111 ' 

390 PRINT 

HOPRFh INT ' ' " " + + + + + +NE5TH UOCE 
nuKREU . + + + + + + + + ■■ 








SOFTWARE AMERICANO 


COMERCIALIZADO PELA ZEBRA SYSTEMS 
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Para 2 Kbytes de RAN coa ou sea SLOK. 

JOGO DOS 21 PALITOS 

RETIRE 1,2 OU 3 
PERDE AQUELE QUE 
RETIRAR O ULTIMO PALITO 

DIGITE ENTER 


UC. TIROU 2 
EU TIREI 2 


lllillillHllllil 

17 PALITO(5) 

ÜT05 UC. TIRA? 


0BRiEM MICRON ELETRÔNICA 


1 

RAND 


• 

c. 

LET H = 

: £Í 1 

o 
■_ 1 

PRINT 

■‘•JOGO DOS 21 PALITOS" 

4- 

PRINT 


5 

PRINT 

“RETIRE 1,2 OU 3" 

5 

PRINT 

“PERDE AQUELE QUE" 

7 

IT 0 " 

PRINT 

"RETIRAR 0 ULTIMO PAL 
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ATERRISAGENI LUNAR 


Para 2 Kbytes de RAM com ou se» SLOM. 



< 8 > 


COMB . ? 






CH0C0U-5E 

Cun* Rh 

H 

LUh 

H 

100KM/H 

CHOCOU-SE 

_I R H 

fl 

LUfl 

H 

100KH/H 

CHOCOU-SE 

CONTRA 

H 

LUh 

H 

100K.fi / H 

CHOCOU-SE 

CONTRh 

H 

LUh 

H 

100K.fi /H 

CHOCOU-SE 

CONTRh 

R 

Lüh 

H 

100K.fi /H 

CHOCOU-SE 

CONTRh 

H 

LUh 

H 

100KM/H 

rwnr-ni i_ = p 

r-nwTDü 

o 

1 1 IC 

O 

-1 i7i i?» K M / *-« 


5 L£T K=0 

10 LET fi=-200-:iNT í RND*60 3 3 
20 LET 5 = 12004- f INT ».RND *380* ) 
30 LET C = 3204- ( INT (RND*90) ) 


40 CL5 

45 PR INT " hLT . = * ; INT (5) ; " HT 



47 PR INT HT 0 í 15.; ,, |”;hT 


31 


2 f 15 





50 

D r. t r. ít r, ~ 
rnini n i 

2,8; "UE-OC . 

= ";R55 

Ri . 




55 

IF R < =8 

THEN PRIN7 " 

D E 5 C E N D 

57 

t— r. v t 

_L! *”! ; 

HEN PRINT :, 5 

UB INDO r 

68 

cr •—« n fc ; — i 
i h ! -« — * 

TO 15-5/188 


78 

PPIN7 



68 

NEXT N 



98 

rOR N = 1 

Q 5 - (P ND +3/2 

-íRND+3 

88 

RR IN" 



10 

NEX7 N 




ÍÜ0 KWIN! <»> 

138 FOR N=I6-IN7 *8/188: 0 13 

-i. f- r». ü ^ í 

150 \;5:<7 N 

150 PRINT "COliB - 3" 

170 INPU7 T 

288 lE“ § = § 4-h -T -18 

210 LET R=fi+T-10 

228 Ir C <1 •HtN GOTO 588 

■ •“ i — w u . ir m - u — *■»! . 

225 Ir 5 58 THE"*-- GOTO 528 
238 IF 5 >19 T HEN G07Q 4-8 _ 

£4-8 Ir Rs5 nr j <28 RND RE 5 *R) <5 
8 THEN LE^ fc=l 

258 Ir K = 1 htiN wRINT RTüRRISR 
GEH PERFEI“P i; 


HEN GOTO 5c 


268 

IF K = 1 7 

278 

CL5 

380 

IF 0 >17 

580 

CL5 

585 

PR INT :s P 

528 

PR INT s: C 

UR h 


538 


54.0 

— - ~ .*x 

280 

SRUE ‘MO 

210 

CL5 

228 

RÜN 
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Para 2 Kbytes de RAM co« SIOM. Pode ser converti 
para uso no iodo FAST. 


iN ja SORES 


SERAÜ LANÇADOS MÍSSEIS 

CONTRA O INVASOR 

QUE UIRA DE CIMA OU DOS LADOS 

P/ GUIAR O MÍSSIL 

DIGITE <N OU M> 


«f 

0 INURSOP aterrou 
MI5SEL PERDIDO 



INURSORES :6 
DESTRUÍDOS :0 

INUR5HO COMPLETR INUR5HC IJMRLE 
T R INURSRO COhPi_E7A INvRõRÜ CO 
MPLETfi INURSRO COM Plz^h IN UR SR 
p COMPLETA IN UR SRO COMPLETR IN 
UR5RQ COMPLETR 
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0HPEM MICRON ELETRONICfi 

1 5L0U 

2 PRINT hT 5 ., 6 ; " INUfiSQRES” _ 

3 PRINT hT 3,0; "SERRO lhNuhlu 
—, f-| 13 3 EIS' 

4- PRINT "CONTP.fi 0 INUfiSOR" 

5 PRINT “Qüt UIRfi DE CIMfi Uü 

D 0 S LhDUj" _ __ ,j 

3 PRINT GUIfiR U NlPPlL 

7 PRINT "DIGITE <N OU h > 

3 INPuT K$ 


Q 

LET 

Y = 14 

10 

LET 

0=0 

11 

r- i — 

i— — 


12 

“ i ■ f-i 

2=1 TO 6 

•s 

X w 

4 ET 

—■ _ ”, >7, 

w — — t-' 

14 

i_ET 

X=INT :RND* 

15 

Lt • 

P=13-í12 RN 

ND X : 

=2 ) 

INT -PNCtjí 

15 

LET 

p* = ,5 P" + r* + i 

"-1“ 

AND 

X = L * 

X >* 

POP 

H=2 TO 19 

18 


P=U l fii_ P$ 

X — 

PT 

V=V - (INKEV$ 


5 = ^N *i _ 

g _ | R ÍHT fi^ p0 - - 


:h t 5I t 
AT h -1 
" Pi C-I 




’ - < 


4- T“ i— Í”1 

5 NEV” 
-5 PRI r Y 


NUhSük R^pPPCL : 



'=L‘zr- 

T 

2=1 THfcM 

p p 

INT 

" N 2 5 

LK 

7 r> 
3 ü 

• t 

0 :: 

IF 

2=2 THEN 

PR 

INT 

flH 

R — 

st 1 * 

r-t 

31 

T ^T 
X ! 

2=3 “HEN 

PR 

INT 

"DEF 


SEU PLPNp H 
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ai cri cr» cn cn cn cn »:n «:.n cn tn cn cn f* f • r- - h f* *» r- r* «* k f- »:.:• + c.;»»•:» *.» • r n»-.:»c o;i rn co 
n j h* rj «n co -j cti cn p o> ro h o «o co - J i» •::«» cn * í • cõ ro»■- ru m 0»xi - i oi»n cn f* x» c.» r ro 


If 2=4- THEN PRINT "OUTRO MI 
PERDIDO" 

j f 2=5 THEN PRINT * EH O 5 B 

=,ijR " 

"jf 2=5 THEN PRINT “05 IN UR 5 
UENCERRM" 

305 UB 60 

L. Z' 

NEXT 2 

PRINT RT 10.0; “INUR50R55 : ‘ 

; “DESTRUÍDOS s ‘, 0 
GOSUB 60 
GOSUB 52 
CL 5* 

RUN 

LET 0=0+1 

PRINT hT H-1 =P ; “ + ‘\;TRB P-l» 
“;ThB P; s +“ 

REM 

PRINT RT H-£ ? P. ; RT H,P-2 

. H H -1, + - x + * * * • HT H j P+c 
T H + i ,P-i sc *’£'&'* t RT H+2,P; +' 

PR IN" H 0,2S "‘DESTRUÍDOS 


GOSLE 50 


LE“" C =20 
GOTO 55 
PRINT 

p fr p | _ *y . Zr 

PRINT : INUhShü CüMPLETR 
NEXT y 
GOSUB 50 
RETURN 

SflUE “iNURSOPEg* 

RUN 

FOR T = 1 TO 50 
NEXT T 
RETJRN 
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INVASORES II 


Para 2 Kbytes de RAH co» ou se» SLOW. 

Os invasores devem ser destruídos co» o seu ca 
nhâo de laser. 

Pressione a tecla para »over a sua ponta 

ria à esquerda e N » para mover à direita. 
Pressione F para disparar. 





ESSE JRH ERP 


DESTRUÍDO iS» I 
DIGITE ENTER 


iZfcPEM MICRON ELETRONICR 

1 GO SUB 33 

2 LET H=0 

3 LET 6=0 
4- LET C=5 
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X X 


• w. / 


5 LET X $= 

6 LET D=INT *RND*i8} 

7 FOR E = INT :3*RND3 ""D 13 

8 LET C=C-,5 


— —■ 


10 PRINT H“ 


11 FOR 


12 NEXT Y 

13 1~ INKEY $= F 
) THEN LrOTj 31 

14 IF 
THEN GOTO 

15 IF INKEY$=‘N 
LizT H=H-1 


E , D; XS : PT 20 ,f : "Ji 
O 40-C 

HND hohBS (D 


NKtY $ = ,! F * PHD 


r- i. L ;: 


16 
E 


T *-; v-‘ 


RND H > 0 THtN 

RnD R <30 THEN 


P=P + I 

LlT D=D-rINT «RND *33-1 
FHtN LE 


H " 


18 IF D>29 

19 REM 

20 NEXT E 
2! CL3 

22 PRINT h7 


L — 4 =■' 


23 PRINT hT 
"J B 

24. PRINT RT 


10,10;"ESSE JflH ER 
18.0: "DE5TRUIDO(5 ) 
20,0.; ' DIGITE ENTER 


25 


P* 




c r\ • *• v — .. ii 

L. i L - I 


IN PDT 

6 CLS 

7 RUN 

28 PRINT RT 
9 LET 8=6+1 
30 GOTO 22 

§1 S§íS T 1 = TIR0 ERRflDa " 

33 RR ND 
34- SLOU 
5 kETUPN 


-■> 


í! c ’g«E§! T ,g LTERf,R PRRR 

34 FR5T 


37 




Para 1 Kbyte de RAM- FAST ou SlON. 

Rolando os Dados não é ua prograaa coapleto. Co; 
téa apenas a rotina de "rolar o dado" com o usi 
da instrução PLOT, servindo de exeaplo. 

RGLfiNDO O DhDO 
Õ U H N T O 5 5 C -TE IO 5'? 


H C i_ H N D O U L’ : H L ; ü 
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F, PPINT * ‘ QÜPNT05 SORTt105 ? 

8 INPUT X 

10 FOR N = 1 TO X 

11 CL5 

12 L ET Z = INT CR ND *5!» +3 
14 FOR 1=1 TO Z 


15 

CL 5 


15 

! ~"T ! 

1— t- t 

f =IN" 

•- cr 

CL w 

s ■—« 


30 

PLOT 

B,F 

40 

GOTO 

210 

60 

PLOT 

5 , c 

70 

PLOT 

B .. 6 

80 

l“ f “t 

1 

. -1 

£L X ¥-• 

90 

PLOT 

6 = F 

100 

GÜT ü 

60 

120 

PLOT 

H 

125 

PLOT 

C , G 

130 

hLOí 

R,E 

140 

PLO i 

C , íL 

145 

GÜT 0 

civ 

150 

PLOT 

8 , F 

160 

G ÜT O 

x 

ISO 

PLOT 

. * 

190 

PLOT 

L i ! 

200 

GCT G 

120 

212 

NEXT 

X 


214 

IO” 

220 

270 

260 


= ; nPT 


Pfíi»5E 20O 

NEXT N _ 

PRINT hT 20.0;"DIGITE ENT- 


290 

295 

300 

310 

312 

314 

315 
320 


400 

410 


INPUT Pt 
CL 5 
RUN 

LET h=20 
LET B = 24 
LC:T C=28 
LET E =25 
LET F =30 

L- LT L* — -_T' T 1 

RETURM 

SRUE "DADOS" 

RUN 
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Para 2 Kbytes de RA* co. ou se» SLOW. 

Este programa possui uma rotina para a»pliação de 
caracteres, nas linhas de 10 a 18 . podendo facU 
nente ser re.ovida para uso e. outros programas. 



uo 




DIGI 


17 PRINT 
13 NEXT I 

19 PhUSE 4-0 

20 NEXT M 

21 CLS 

22 PRINT , , 

ENHfl" _ ... 

2^ INPUT X$ 

24 LET_Y =LEN U»í 

26 PRINT”*»,>"OUTRfl VEZ DIGITE 
ENTER" 

RS 


ERROU 


27 

INPUT 

28 

CL 5 

29 

RUN 

38 

PRINT 

- -i 
_ _L 

PRINT 

;j IU 

ki st 

V4 

32 

: N P LT 

—• 

w 

IF P* 

34 

GO SUB 

35 

CL 5 


P! iN 

37 

IF Y< 

0 

FOR M 

T !*T 

IF CO 


I ' 




40 rp |-: = i ! HtN ; -rOT O 30 

41 kE-<T M 

42 PRINT . ! 

4-3 GOTO 26 

44 print agBüa 

45 PRINT QTR5 LET RR 5 VC 


QUER?" 


46 

INPUT X 


47 

LET M $ = "" 


46 

FOR M =1 Tü X 


49 

LET L=38+ íINT 

íRND+55» :i 

50 

LET M$=M$*CHR$ 

(L) 

51 

NEXT M 


52 

RETURN 


53 

PRINT 


54 

PRINT "R 5ENHR 

ERR **; J$ 

55 

PRU5E 160 


56 

RETURN 
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MICRON ELETRQNICR 
-V ppH PROIBIDO REPRODUZ -- 


2 PRINT 

♦ + + + + + + i: 

3 PRINT 

4- LET K=© 
5 LET Y=K 


++++++ 


6 

i_ET C = 

I 

y 

GOTO 5 

i 

è 

PRINT 


9 

PRINT 

- s r\ 

w 

10 

PRINT 

! ‘Q 

11 

INPUT 

X* 

12 

CL 5 


13 

PRINT 

£ i 

14 

LE"r X = 

:LE 

15 

PRINT 

RT 


QUhL R PRLflURfl" 


i,0."fi PRLRURh EH 
DE "X.“ lETkhS” 

16 LET Zí='- 

17 FOR Z = 1 TO í X — 13 
13 LET Z$=Z$+"-" 

1-3 NEXT Z 

2S PRINT RT 10.3;Z* 

21 PRINT RT 13.0;"QUE LtTRR Uu 
. QUER TENTAR?" 

2 T p p T f-p" 

23 IF^C >3 THEN PRINT “DESISTE? 
DIGITE 0 

24 INPUT L % 

25 LET C=0 

26 FOR N=I TO X 

27 Ir X$ÍN*=L$ THEN PRINT RT g 
, «2+N> ;L $ 

26 IF X$ÍN»=L$ THEN LET K=K+1 

29 IF K=X THEN GOTO 53 

30 IF X $ ( N) < >L$ THEN LET C=C + 1 

31 NEXT N 

32 IF L$ = "O” THEN GOTO 40 

33 IF C=X THEN GÜ5UB 35 

34 GOTO 21 

35 LET V =Y +1 

36 PRINT RT 3,0;"E DE ";INT (X 
X2);” CHRNCE(5)" 

PRINT "UC. JRH GR5T0U Y 


~ -? 
ij i 


43 



1 V 


then GOTO i 




— —„ “T" r— •/ . —. * r. * * 

:jj_ F r — j ~ •. •• 

. r- “ “ i • 61 

j W »-| __ I *-í. ! * 

f l PRIHT ME5“Hj t'L-. <- ; HH i_K*-= 


100 


-*• ^ 


• 1■ ; 


P IN 


+H 0 H £ M E N i- U R C H D 0 * 

P PHlHUkH * - x -5 

OÜTRP UEZ ?S/N 


4.Q 2 ri ►-* ü \ 

50 IF^P* 
52 R Ü N 


- T 


THEN *--0T0 4-9 


54- FR INI 
55 PkIN^ 
55 GO 0 


v 


ACERTOU. 

2—* p £3 t-T :: vC » OU5 R 0 -hR h f h i -h 


-- ~ . f. i !l 

\H : - / W 

“ =: " ri k- 1 i 


H* 


FQ 

JF P $ = ‘ M 

T HEN 

60 
.= i 

A 

“ > j-■ j — — 

THEN 

62 

ti. ! 

*-■ — N _ 

_FT 5 = INT 

í RND 

64- 

DIM S $ • 

“7 *. 

,® t 

65 

LET SSii) 

= MUN 


goto s 


W •— 


Í-- í 



75 RUM 


LU 




Para 2 Kbytes de RAM coi ouseiSLOW. 

Este prograia siiula uia versão do faioso quebra- 
cabeça criado por Rubrick, o cubo lágico. 

Nesta versão, o cubo possui 16 peças distribuídas 
em 4 superfícies piaras, coio abaixo : 


0 


S 

s 

; . = . 

0 0 

f —* 

s 

}~‘i 

£ 

El 

2 

2 

L : ‘ IU XTíz N a L >E UuLThí 

£ 

£ 

2 

2 

P / tMBRR hi_HhR 


Para efeitos de identificação as peças ficai assii 
numeradas: 

01 02 03 04 
05 06 07 08 
09 10 11 12 
13 14 15 16 

Para movimentar as peças, escolha uia posição t con 
fone a nuieração de 1 a 16.. Por exemplo 12. 

A peça 12 será deslocada para a posição 16. A 16 
para a 15. A 15 para a 11. A 11 para a 12. Quatro 
peças são «ovidas ma casa em sentido horário. 

0 °bjetivo é voltar a situação original. 
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c. 

4 
6 
3 
10 
15 
20 
25 
30 
32 
34- 
36 
38 
4-0 
4-5 
50 
55 
60 
65 
H= IT 
70 
75 
-?6 
30 
35 
D* 11 
90 


MICRON ELETRÔNICA 

LET G=0 
LET P=1 


LET 5=2 


LET T =3 
LET U=4. 

RflND 

DIM YíUtUJ 
OIM Xtü) 

LET K=R-R 

r § 

TF m -T THEN LET 
ir Ss9 THEN LET 6 =T 
IF h=Ii THEN LET 6=4- 
LET Yífi>=B 
$FT Ylfl+Hi =D 
L ET Y(R+UÍ=B 

tir íigí &%%+**'**'** 

*T) ) 

MEXT c 

ROSUB 500 

i?m s £i? u ?=it!NT .o» 


+ 5 


TC fcí 
> ■ ! 


92 PPINT fi] 


,-_i THEN _ INPU1 


.-.-r- -1 .4 


, 22 ; 4 


95 

100 


.05 


Ir ” Y =0 TpEM |OTC f.^ nT S5 

g í<! Kl Yí ™hKm G 5oto ss 


He I"et '■*' 1 U 5 = Y ! - "< ~ R ' 
Hn i”ft V iY> =X íüJ . 
H5 lET V iY +U; =XíRJ 

trá rl- v- <y+t:« *x 

lis LET YCY-R>=Xm 
■]C0 f^n^üB ^«■’ 

155 LET_K=K+P 
i 6 0 G OT 0 
165 CL5 
24-0 PRINT 


i.H 




_ 



n+ th 


540 
550 
55 0 



> - i - "1 < 3 .5 : CHR $ ! Y í y 5 

— ET Y =Y ~ R 

NEXT li 
NEXT N 
R ET U R N 




P4 -f- f 
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Para 2 Kbytes de RM se» SLO* 

JOGO D* UELHP- 
UOCE COHECh? S/N 


* * 
***** 
* * 
***** 
* * 


5UH VEZ_^ 

.TiiíCU H PU 2» I-HL* 


QUAL H P 
1 2 
4- 5 


0BREH 

n Ã L- Kv 

-t 

LET 

0 = 1 

2 

LET 

U =0 

. T 

LET 

K = U 

4 

L. L. i 

•J =K 

•— 

DIM 

X i 9 1 

Q 

6UTU i í 

"7 

LET 

z *f'_ 

8 

G 0 5 : 

J B ’=? — 


647159 


9 LET H=I 

10 G05UB 92 

11 LET 6=1 

12 LET U=Q 

13 GQ5UB yc 

14 LET C=I 
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30 
GOTO 

31 


GOTO 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


let w=pi-pi 

prÍnt N "„iogo DA uelhh; _ 

PRINT ,,"UDCE COMECR? S/N 
INPUT P* 

CL5 

jp p$ = "5" THEN GOTO 4t> 
PRINT 

LET J =PI-PI 

PRINT '0 MICRO JOGP* 

PRINT DIGITE ENTER' 1 
INPUT X* 

CL 5 

GO SUB 7 

FOR N = I TO 3 _ 

IF X ífi)+-X ÍBJ +X (C) =104 THEN 
42 

GO SUB 8 
NEXT N 
GÜSUB 7 
FOR N=0 TO 3 

IF x(H) + X iB3 +X (C3 =122 THEN 
42 

GOSUB 8 
NEXT N 

LET P = INT (RND*9)+0 
IF X«:R5o0 THEN GOTO 33 
LET X CR) =52 
GOTO 46 

IF Xífi]i =0 THEN LET Y=H 

IF X(B)-0 THEN LET Y=B 

IF XCC)=0 THEN LET Y=C 

LtT X ÍY) =52 

LET K=K+Q 

FOR T=Q TO 9 

PRINT CHR* (X (T) 3 j 

IF T =3 OR T =6 THEN GOTO 53 

IF T =9 THEN GOTO 56 

PRINT "«r”; 

NEXT T 
PRINT 

PRINT •=*****•■ 

NEXT T 
PRINT ,,,. 
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59 

60 
GOTO 

61 

GOTO 

62 

63 

64- 

65 

66 
F. 7* 
68 

69 

70 
69 


IPRINT _ 

GOSUB t_ 

F ifx^? + ^B? + X(c:.=i3 3 then 
JF X íflj +x (B) +X iC.' = 156 ’ HE 

84. 

GOSUB 8 

ÍPLS THEN GOTO gg 
TF .i = i THEN GOTO « 

PRINT ,."SUfl UE, r 
PRINT "Oí-ifii- H *-- - 1 - 
GOSUB y~- 

^ P HT. a rt r:R XtH) O0 THEN GCT 

l CLS . - 

? i_£T x*n» =Gi 
§ LET JsO 
V GOTO 4-P* 

5 PRINT _ . 

=. PRINT 1 c. -• 

7 PRINT 

8 PRINT "4. =• 6 
Q PRINT _ . ... 

0 PRINT ■? =! - 

I PRINT*'* i ”0 HUMPNO VENCEU 

S ggíSrS MICRO UENCEU 

*5 GOTü P* • __ _ 

PRINT pMKHTE _ ..... 

^ PRINT = “UUTF:H Vt. - 

g gPfíoV THEN GOTO 88 


90 

91 

92 
9*3 
94. 
9-5 
96 
: =$7 


CLS 

P-I; T.rnrf íz*>-23 

THEN RETURH 

2eT ZS=Z5 ,:a u *‘ 
return _ 

5RUE "Uti-HH 
P:ÜN 











Para 2 Kbytes coi ou sei SLOK. 

Utilizando as instruções PLOT e UNPLOT, este pro 
graia periite desenhar na tela coi a resolução grá 
fica. As teclas 5,6,7 e 8 fornecei a direção do tra 
ço, conforie suas setas indicadoras. 

Para deslocar o ponto a ser iipresso até outra po 
sição da tela sei produzir traçado, digite antes 
a tecla U. A sua localização ficará piscando e vo 
ce poderá deslocar-se do iesio iodo. Quando atin 
gir a nova posição, digite a tecla P para voltar a 
"plotar". 



20 REM MICRON ELETRÔNICA 
30 5LOU 
4-0 LET 7 = 1 
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Para rodar no «odo FAST. altere: 


0 - H 5 r 
175 p h Ü 5 E 
155 PHÜ55 ES 
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Para 2 Kbytes de RAM co* SLOW. 

Este prograia, utilizando as instruções PIOT e 
UNPLOT, gera o boneco abaixo, siiulando u* «ovi 
■ento de pés e braço. 




2 F H 5T 

5 FÜR H =0 :O 

6 PLÜT 20=H 

7 PLÜT 30,H 

3 MEXT H 

12 FÜR H=2ü TO 

13 FÜR B =5 

14 PLÜT h , 6 

15 NEXT w 







16 NEXT P 

17 FOR B =24 
13 FOR H = 19 

19 PLOT P.B 

20 NEXT H 

21 NEXT B 

22 PRINT PT 

23 PRINT PT 


TO 36 

TO 31 STEP 12 

5,11,PT 5,13;" 
6-3:"I ;PT 6,16, " I 


24 

25 

26 
27 


30 

31 

32 

33 

35 

36 

37 
33 
:“9 

40 

41 

42 

43 

44 


PLOT 25,30 
FOR P =22 TO 
PLOT P,27 
NEXT P 

FQR 6=5 TO 25 
PLOT 25,B 
NEXT B 
fiOSUB 40 
GOSUB 50 
5L0W 

FOR P=26 TO 30 
PLOT P,15 
NEXT P 
GOSUB 40 
-.t n 3 i 

Für”h=15 TO 10 5TEP - 
PLOT 20 t H 
PLOT 30. H 

NEXT H _ „ 

PRINT hT £1,9;"■ .-Hi 


, 15 


4-5 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

RR 




r-, . 


H 


PLOT 
NEXT 
PLOT 
PLOT 17.0 
RETURN 
FOP h= 10 TO 
UNPLOT' 30 , P 
NEXT P 
PRINT PT cl 
PRINT P!_2i 
UNPLOT 1,0 
UNPLOT 31,0 
PETURN 


-1 - 7 - 


9 . 

16 





[7dMNHE O HÚMERO 


Para 2 Kbytes de RAM se« SLOM. 


PCIUINHE □ NÜMCRU 


NESTE wOGO = CU > O MICRU 
ESCOLHO ÜH r-i* DE I P 100 
E UOQE RDIUINHft. EU DOU PS 


DICPS 


p/ COMEChk DIGITE 0 


0Hh p m h i r ™ n n t L ET k O NIC P 
1 PEM PROIBIDO REPRODUZIR 


■A. 

«=. 

3 

■ • •— : ■ : : 

LET Z = 
PRINT 

:0 

hT 8 , 0 ; 11 hD IU 

INHE 0 

N ü 

MERO* 

4 

F, 

1 

PRINT 

“NESTE JOGO, 

EU UI 

NI 

CRO) 

6 

• i 

PRINT 

'ESCOLHO UM 

N" DE 

1 H 


100 " 

7 PRINT "E UOCE PDIUINHP. EU 


DOU PS DICPS" 


S 

PRINT 


9 

PRINT "P/ 

COHECPR DIGITE 0 

10 

INPUT P$ 


•1 -1 

-■ X 

CL5 


IS¬ 

IF P $ •: > " O " 

THEN GOTO S 

IS 

LET R = 1 +1N 

T ÍRNDil00) 

14- 

LET Y =0 


15 

PPUSE 90 


16 

PRINT "EM 

•JP ESCOLHI 0 N* " 

17 

PRINT “TENTE R SUA SORTE" 

18 

PRINT 



55 


19 PRINT "DIGITE 0 N* " 

!? iP X ST=3 THEN PRINT HT 18,0; 

11 r- pi pI:=,T J p L :: I ■— IT E ^ __ . — 

22 IP 7=5 THEN PRINT P R 

Nfl ^ D IF I Hl0 ? THEN PRINT PRREGO, 

..EH fl l0«TENiRTIUfi 

24- INPUT X _„ 

- := ; - p x >100 THEN \sú * 3 -*- 1 

£6 IP X 0 THEN GOTO |0 

■:,7 tf x=0 THEN GuTu 54 

23 IP x=R THtN GOTu -- 

IS iFx^R Z THEN GOTO *a 

31 GOTO 4-6 


3 3 

•*- 

PRINT 

PRINT 

P 

,r 0KUQCE 


PRINT 

:: nh ■ ; ^; 


PRINT 

“JOGfl 0 UT « 

" “7 

: 

INPUT 

PÍ 

3 5 
39 

CL 5 

IF Pí 

= ’* 5** THEN 

40 

PRINT 

“LEGAL, T 


TEN fl 


tl PRINT "UOC-E CHUTOU ALTO" 

4-3 PAU5E 200 
4-4- CL5 _ 

Í6 PRINT "UOCE CHUTOU BRi.-n 
4.7 PRU5E F00 

50 prÍnT^UC NSO 5HBE 0 QUE E 
UM 51 PRINT "NUMERO ENTRE 1 E 1QQ 

“77 ■■ 

52 PhUSE £00 

53 GOTO 17 

55 PRINT "O N" ERP " R 

57 IflUE "RDIUINHl" 

55 RUN 


Oi m 




dado cõm Aposta 


Para 2 Kbytes de RAN sei SLOW. 


a a 

a 

■ 1 

■ ■ 

■ ■ 

H* SOR 

TEhDü 3 

CHICO 

PPÜ5T0Ü NO 2 PERDEU 

H -_r U R H 

t - ~ r_i tr a nt 

JUCR 

R P 0 5T ü ü N 0 3 G R H 0 ü 

hGORh 

TCM »fc “« iT. 
s i— 1 : fCCCl' 

0 MICRO JhH GkNHÜÜ $ O 

1 KULrH 

L : £ HKUSiHS L>I5IT£ H 


P x* O UT h! O 5 0 PT £ I O 


M MICRON ELETRGNICP 


20 

DIM N*(5,8) 



22 

DIM 5(2; 



24 

DIM P(25 



26 

DIM C(23 



30 

LET SM =0 



70 
-». 

«* a 

CLS 

PRINT “ JOGO 

DE DhDO" 

60 

PRINT “P/ 1 

i 1 

: -= e. 

• J G G H 

65 

INPUT N 



a “? 

IF N>2 TrIEN 

w’- ! i W 

00 

90 

FOR X = 1 TO N 

00 

?“ K x»> í JU»H[ 

OR 

1 X 

10 

HRIMT "NOMEO 

” HRX 

F. F 


120 INPUT N$íx! 

130 PRINT TEh QTOS. $ 
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132 INPUT SOO 
134- PRIHT “•'.*) 

14-0 NEX T 
14-2 P RINT 

111 EllNT S N*=X»r «P05TH ©TOS. 

$ _ « 


325 

INPUT 

P 

i X ) 

330 

PRINT 

p 

« : 

34-0 

PR INT 


EH C 

34-5 

INPUT 

c 

i X -• 

350 

PRINT 


(X) 

355 
3 5 8 

NEXT 
60 SUB 

V 

£k 

*_• ^ V 

4-00 

POP x 

— À 

i *—• 

4-50 

IF C ( 

:<; 

— *-»i 

1 +p c; 

<1 



480 

IF C* 

> : 


•:) -P 

v X ’ 



490 

I c C ; - 

X) 

1 ’ R 

CXj 

495 

IP c i 

> j 

sR 


5 j >: '■ = 5 -- X 
- . v j s 


Hl PRINT N$ - X? ; " GOSTOU HO " ; 
iF c iXí =P- THEH PPIH- OhNH 

°O“ 0 IF CíX i<;:R THEN print •• PER 

IS S i 2 t jí ; o I 0 ?S e 5 e «^ 5: ^° 

EH hTEH 6' 

54-8 NfcX _X 

Ué ggiKÍ “O MICRO -JPH ORNriOU I 

559 PP|tX p c-E PPOSThS Dl 

^l/pRXNT P- OUTRO SORTEIO S 
590 INPÜ Z* 

Ifl rp : '? l = ' ft THEH GOTO 31© 

III ÍF Z $ = 5- tHEH GOTO 1©©© 



640 ... 

035 PRIN 
Ci-P 


n GOTO 558 


Í030 rüK c-i 

>-* ~ -D i FT P — «3 


10 — 
1050 
10-54 
1092 
1094- 


y=r p=_ 

G05UB j ír 

T P 0 -: > 7 ri lI : 'í — *— 

6 


p p j r-4T ! 1 N* 5 O RT E h D U 


1096 

1097 
109 8 
10 9 9 G QT ü 4-00 
1100 PP INT H’ 
1105 PhU5u 60 
1110 CpiuPN 
1200 = RlN! H!_ 
", - : 0P PRUSn 60 


i-c.--' 


0,4.; 


1210 

r—- r—T~ - t T-. i 

r L i s jK;i 

a* i i 

1300 

“• : • r r. : 

J. • M i 

134-0 

PRINT 

1250 

PRINT 

1360 

PRINT 

1365 

PHÜ3E 

1370 

i-.' p 7 U H N 

1400 

PRINT 

1410 

PP INT 


H ■ 
60 


4- ; 0 


14-15 — H ü : ü &%3 


14-30 

k ET* ü k r* 


1500 

PR INT 

s 

1520 

PP.INT 


1530 

PP INT 

9 

1540 

PRINT 


1550 

PR INT 

1 

1565 

PHüSt. ■ 

Z «Tk 

JC 

1570 

PET UPN 


1600 

PP INT 

c 

1610 

PP imt 


1620 

PP INT 

a 

1630 

PRINT 


164-0 

PR INT 

a 

1650 

PETÜPN 


1700 

SRUE 

DRDg 

1710 

PUN 
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Ml O IJI 








M C 


LOTERIA ESPORTIVA 


_ nr 1 , t - — 


DUPLO E ~I-_: -H COM VL . 

TRO CRRTRQ ? 

GITE NcU LINC 

0HPEM MIC»CN ELETPONIC 


4- FOR x = I T O 13 

F. LET R = INT ÍRND*3*+1 . _ .... 

6 P RI N“ r PT X -f 3 : P ^ L ; L : H R $ 1 -■ j- = •** 

7 NÉXT X 

•3 P R 1_ . , 

g pRINT "DUPLO t TRíPlu cti - 

10 " PP; INT ,,“OUTRO CRRTflO ?“ 

11 PR INT “"DIGITE NEU LaN- 

12 INPUT P* 

13 "C L 5 
14. RUN 


60 


nrri ni 



0 

Os proximos quatro programas são para 2 Kbytes de 
RAP, preferivelmente com SIOH. 

Geram figuras simétricas, aleatoriamente,com o uso 
das instruções PRINT ou PLOT e/ou UNPLOT. 



2 FR5T 

5 FOR N=1 TO 30+R«Di50 
S IF N=20 THE'. 5L0U 
10 LET h=RNDí 31 
20 LET B =RND*21 
50 PLOT H,B 
60 PLOT 31-HjB 
70 PLOT fi,21-B 
80 PLOT 31-fl,21-B 
90 NEXT N 


61 








GERANDO QUADROS 



£ 

cr 

3 

3 

10 

20 

50 

60 

70 

30 

90 


Fh ST 

FOR N = 1 TO 50 + RND-f50 
Ir N=20 THEN 5L0U 
i_ET B = INT (RND*31) 
LET H=INT (RNDt21) 

h, B; "l" 

21 - P , B 


PRINT H 
PRINT h 
PRINT P' 
PRINT h 
NEXT N 


h 31 - B _ 
21-P,3I-B 




63 








I 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


ELETPCNICh 


P.EM MlL-RON 
5 L O U 

L ET H = INT 
let e=int 
IF RHD>.“- 
PLOT H.5 
PLOT 

PLOT c-3-0 > B 
PLOT 63-H, 4- 
RUN _ _ 

110 UNPLüT H.. c- 
120 UNPLÜT 
l';0 IJHPLUT DU-H ■ 
liiZi UNPLOT &3-P ■ 4-2 B 
150 RUN 


í 63*PND• 
i4.2*RND3 
THEN GOTO 150 


-B 































































































































































































































































































































































































































































































































































Prograna para 16 Kbytes de RAM coi SLOW. Pode ser 
faciliente convertido para o «odo FAST. 


Voce joga contra o licro. Suas pedras são as da 
parte inferior do video e voce as «oviienta, digi_ 
tando LETRA MflMERO da pedra a «over e ? a seguir, 
LETRA NdMERO PARA a(s) casa(s) de destino. 

Exeaplos de «oviiento: 

A6B6, G6F5, A8C6F3, etc. ... 


POSSO CÜMECPR? 5/N 


H MICRO 
ULT . F3E4- 


ffi HUMANO 
ULT. 
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Suas pedras e as do -icro serão convert.das ..Dl 
HftS quando atinglre- o lado oposto do tabulei . 

M .... Pode. deslocar-se de ... .* - por . 

r ias casas. Neste caso.se voce for el^.nar - 
Pedra co .icr. (cc. a da.a). digite as ccorden, 
das da casa de orige-. as da casa an eri 

dr . (do .(oro) » ser 
(s) casa(s) de destino. 


\ioce pode digitar até guatro coordenadas para u.a 
única jogada, co.o por exe.plo: MK^CZ 

FICA CONVÜiCIOHADO: 


iabuleiro co« 6, casas sendo 32 jogáveis. 

Doze pedras por participante. 

A S oedras -ove-se a frente, de casa e. casa 
oiaqonal. 

nirJ frpnte e para trás, uma ou 
As damas move» se para rente 


várias casas. 

Eli. .no.-oo pedras ad.ersírias. saltando-se sob « 

elas, para a frente e« diagona.s. Se desejar _ 
me r" para trás. voce pode fazS-lo. -as o 
não o fará. exceto durante .. salto .ult.plo. des 
de que não seja a pri.eira pedra a ser eU.tnad.. 
Co-er pedra ou da«a não é obrigatono. 

Pedra "co-e" da-a. 

,„ce aquele que pei.eir. **"'1 

adversárias- 


H HICkGN 


=-r - j r-4 2 i_: H -- * - 


D IN 

H (- 

D IN 


LET 

“ =í 

LET 

PH 

LET 

PH 

LET 

DH 

i CT 

X I I 

PM 

U—> — • 

DH 

i_ET 

Ü =i 

LET 

—_ — ; 

LET 

ET — 
i — 

LET 

D 5 

LET 

0 K 

LET 

N $ 


180 L£J * 

£00 i_ET 0=E 
£02 LET 5=y 
£04 LET r =5 
£06 LET DS = l4 

£08 LET GR -D 5 _........ - H -. F -, r -= - y . 

r 10 j_ET N5 = ‘ jüEovOHwM r - ~ _n ___ 
S^SC6R5H5F5DUPÍ>XXG4E4i_ 4.H4^ - “ -- 
8V XG2E2C2H2H1F1D 1-1 

££0 gosub £. »-r—rtr 

£40 PP.INT SWffitefeE,., ._ 


230 INPUT J5 

3 I 0 jp",j$= 5 ! THEN 30T0 1300 
340 IF üi= 'N" THEN GOTO 330 
360 GOTO 10 
330 GOSUB 5000 
382 GOSUB 3740 
400 LET T =T*PH _ _ , „ 

420 IF TOO THEN GOSUB 8200 
430 SLOW 

440 PP.INT "ÜLT. " U$ 

460 PRINT S 
430 INPUT :■ % 


4-32 

IF 

X$ = "X:X” .THEN £ 

OTQ 6000 

4-37 

PP I 

NT , ; ‘'P.GUPRDE " 


4-33 

IF 

LEN X$ { 4- THEN 

GOTO 3000 

4-90 

LET 

5 $ = " 


4-92 

LET 

F$ = ,! 


500 

LET 

C$=X$( TO 2? 


520 

LET 

B $ = X $ • 3 ^0 4.- 


54-0 

TO 

IF 

6) 

LEN X * >5 HEN 

l_ET 55 = X 5 ( 

550 

TO 

IF 

} 

LEN X*>7 ThEN 

LET F $ = X$i 


69 


III».' 



70 


h*h r r^i i.j 





1268 LET F=0 
1270 GOTU 0 
1230 CLS _ 

1300 FOR _i=ç ! :=; ij" . , E , 

TF Hi.Z.i =-c í rítr-i l-c = 
íáSS TF 7íQ THEN GOTO 14 

±_ tr ; ^ - . -V ,-iur, i ci í7. 


2gg íp 5;ãTHÍN GOTO 14.00 

340 ÍF PÍZ) <0 r flN^ifl.íZ-4.^=Pp f UH 

H (2-4*3 =DH3 HND h u-tí: = ; - 


TG 1 
1360 

840 

IF 

*- *■- 

x * 

THEN GO 

TO 

1400 

_ c - — 

1360 

JC 

Q ( 

f 

t 

<0 HND C 

H *. a» 

_T 

R CZ 

-F ! = 

DH 

l 

PND h CZ - 

-i.0 ! 

— •-* 

OTO 

2050 

i 





1400 

JF 

T j 

25 

"HtN GO 

~T~ 

í ’_ r 

• 1 J% 1^. 

X *4- 

1420 
R H ( 

ÍF 

Z + 4 3 

S í 
=D 

H3 

=Díi PND 
PND pcz 

c P; * 

8 3 

x+4-. 1 

—n t 


OTO 2320 . _ ... 

14-4-0 IF PCZ)=DM HND ^U + suFn v 
R h CZ4-53 =DH3 PND RUZ*Í03=ü * ViEN 


GOTO 

2600 


1460 

NEXT Z 


1480 

LET KK =0 


1500 

LET* y =0 


1520 

uET Z=iIKT iRN 

D*35334“ 

1540 

LET K=0 


1560 

IF U >129 THEN 

LE^ KK=KK*PH 

1580 

LET U=Ü4— H 


1600 

IF H CZ) <0 PND 

P iZ-4 3 =Ü THEN 

LE" 7 ” 

K spH 


1 6 2 0 

I c h(Z í<0 HMD 

P. lZ-53 =0 HND 

K =0 THEN 4ET K=DH 


1640 

IF K =0 HND Z :2 

5 PND H Z ' =DH 

HND 

P. . Z4*4.» =0 THEN 

— T K = — 7 

1660 

IF Z<=10 THEN 

GOTO 1720 

1680 

IF K=PN PND Ü 

200 PND P.íZ-5 

1 = 1 THEN GOTO ir-2O 


1700 

IF K =DH PND ü •: 

200 PND PiZ-i 


03=PH THEN GOTO 1520 
1720 1= K=G HND KK <350 THEN ftnTO 
1520 

1750 IF K=ü THEN GOTO 380 
1780 LET H (Z- * 3 + K ; j =P íZ3 

1782 LET DS= • Z-(3+K* i 

1783 LET OR=Z 
1800 LET fli;Z)=0 
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72 



73 







— r.» — ' ... ; 




then 


Hi 


H 


'HE’ 

thE 


^ . —i 

i 1J ! 

GOt 
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1111 UENCI” 

Üll IrxSt -UOCE VENCEU 
344-0 GOTO 3010 .. 

3460 PPINT S ' 

3462 PRINT 0 

3500 PRIN; - = , i , í. fl í s T^7i 

lláé PRINT ," 2 ■ 

=T: ; " ” ; AS 1.34) . _ H* ■7 :; . 

3540 PRINT , 3 

30» ; “ " ’ P* lc -f ? 1 i „ " 

3560 PRINT , 4 

6»T” ‘.AS<25» : ; .R*;£4 : . 

3530 PRINT .. 5, t 


21J ; ‘ h> tct'. 1 * * r, f 

3600 PRINT 6";H$ ilSí, 
7’i ; “ h* (16» ; “ AS '-IS.' 

3620 PRINT u " 7 R*i.l3): 

12,;" " ; HS (11) ; " "uH* 1.101 

3640 PRINT , 0".H$l9«; ' 

; •• " ; AS (73 A$ i5J 

3650 PRINT , ABuDEFGH 
3660 PRINT E HUMANO 
3630 GOTO 3960 
3700 SAUE "DAHAB’ 

3720 PÜN , 


Hí i 


" ; A$ 1.19 


; ps 

Hí 3 


, A $ (2 

"p s ( 

; fi * í 1 
; a $ i. 
A $ i. 3» 


374.0 FOR Z = 6 TO 4.0 

3760 IF Z>37 AND A (Zi -1 THEN LE7 
A (Z) =£ - _ 

3780 IF Zí10 AND AtZí =-1 THEN LE 
T A CZ) = -2 


3800 LET P=0 
3320 IF A (Z3 =DM THEN LET As iZ» ='* 
O" 

3640 IF A iZ» =PM THEN LET A$iZ»=' 

8 " 

3350 IF A(Z)=0 THEN i_ET A$ (Z3 »"■ 

I 1 

8880 IF A iZ) =PH THEN LET A$iZ3 = 

,, B , ‘ 

3200 IF A CZ3 =DH THEN LET (Z) = " 
X" 


5 »:z:» = : ’ 




Voce pode grava^ o 
tinuação futura do 
v iniento como sendo 


tabuleiro (o progra*a)pa 

jogo. Digite u»a jogada 
XX. 


esie PROGRAMA não é recomendado 
PARA JOGADORES EXPERTS 
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hPQSTüU no 
hOQSTOU no 


fl * l »> 






*.***■*•* 


;o -jmH gsnhuu $ - 

— S f-F hPOBTHo h 
DüTkO 5 O PT EI O S 
ShLhNCO ____ ? 

P0S jQGPDuREs 


10 LET U$- 

£0 DIM N$p ; Si 
2 £ DIM 
£4. DIM Pi§5 
£6 DIM CCS? 

23 D ±í 

30 uET wh -*-• 


53 Ci-5 _ 

Ri Gü^wt 
:=<=; pRINT h 


5 *jTii írnT' 35 JOi 


DORP-P : /. 

S 7 5 L 0 W 


88 JNHLM _ 

QS* FHP X = 1 w 


GOTO 50 
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100 PRINT HT 1|,|; 

110 PRINT PT 14,5.. NOnt. 
120 INPUT N$CX) 

122 PRINT NSCXJ 
130 PRINT PT It> ,5, 


”; x 


EH QT03.$ 


132 INPUT SCXJ 

134 PRINT S_C X ) 

135 PRINT P 

136 PRINT H 

137 PRINT H 
140 NEXT X 

142 CLS . 

310 FOR X=1 Tu 0 
312 PRINT !i 


__, 5 ;U$ 

14 ..5; U* 
16,5;U* 



316 PRINT 
320 PRINT RPO&Th üTOo. 

$ 

325 INPUT PCX) 

330 PRINT PCX) 

340 PRINT * S EM QUE f# 7 *0 P 9) 11 j 

345 INPUT CfX) 

350 PRINT OCX) 

352 CLS 
355 NEXT 'X 

353 GOSUB 1000 
400 FOP Xsl TO Q 

460 Ir CXX)=R THEN LET 5CX)=S(X 
) +P CX) 

430 IF CíXíoR THEN LET 5 ÍX) =3 í 

X) -P CX) 

450 IF CCX)oR THEN L.ET SMsSM+P 

CX) 


495 IF C CX) =P 
X) 


THEN 


LET SM=SM-P( 


• r 

520 PRINT N$ÍX);" PPGSTOU NO 
C (X) ; 

530 IF C ÍX) =R THEN PRINT 0 


2 r 


i N H 


^540 IF CCX3oR THEN PRINT :: PER 


79 





80 


m ui 








1100 

NEX7 T 

1125 

PRINT 

1126 

PR INT 

1130 

PRINT ,! N 

1132 

FOR N=1 

1133 

NEX 1 N 

1135 

PRINT 


GOTO 4-00 

2 3 0 0 

CL 5 

2005 

-P57 

2010 

_5T H5= 

2011 

_5T 65= ! 

2012 

Ld 1 _• 5 = 

.t ” 

LÃ XNéT H ! 


2O20 

FOR N=0 

2030 

PRINT RT 

2032 

P R I nT h ! 

2034- 

IF N <21 

0iHÍ 


2036 

IF N <21 

H$ 


204-0 

NEXT N 

204-5 

RETURN 

20*0 

SLOU 

2060 

FOR N = 1 

2072 

PRINT hT 

2090 

PRINT RT 

2092 

IF N = l-5 

"ACEITAMOS AT 

2094- 

IF N=2C 

" P / M P M fiTOD r= M 




i 

*_ 

O N , H $ 
20.31- 
THEN PP: 


EM «JIND03 A 


1 


— ■> 


i-4 


N 31 


3jJiDí.HI S . 2 7 
5,3 ; C$ ; AT 5,27 


10 


£096 IF N=25 THEN PRINT AT li . 3 
EU, 0 MICRO, BANCO O JOGO.' 

?S£2-ÍÍL N r 3 ® THEN PRINT AT 16,12 
f DlbITE 0'' 

iSli 5ext N n EY,= " 8 ™ en return 
SRÜE "ChSSINB” 

5010 CL5 
5020 RUN 
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m wi; r i 
O UJ • 






VISITA AO CASTEL O 


Para 16 Kbytes de RAK com SLDN. 

Através de u» processo aleatório voce percorrerá 
diferentes cômodos de ut "castelo escure" , depa 
rando-se com diferentes situações cômicas ou de 
perigo. E» alguns casos ser-lhe-ão oferecidas al^ 
gunas defesas. Voce poderá ou não se livrar com 
maior ou menor consumo de oxigênio, o que pod^ 
rá ser fatal. 







































Q programa resume-se num trocadilho de textos 
compostos aleatoriamente ou pelos resultados das 
situações anteriores, oferecendo "n« como.naçoe 

Existe, nos textos arquivados algumas -piadinhas 

picantes ou de gosto duvidoso". 

Sinta-se a vontade para substitui-las. 


I 


- V 

I 









































^SK gí:slíc! L ií?™ê£?is 

II m ÜIÍíi-;;MgpE" 

4.0 lET USlci^.püL . 

50- lET U$ ‘3J s ,.k|í p.. 

60 LET U*«4.)= 0E5TE 

70 LET X=0 
S0 LET V =100 
90 LET U = 1 _ 

íf| PRINT TflB®4.; "UC ESTflh ND IN 
T f£0 J pRINT TfiB 4-; CfiSTELG ESCURO 
’ 130 PRINT TAB 4; “COM MUITOS CAM 
14.0 PRINT THE i; ,; PUüLHo -• HIu : H:■, 


hB 4; “COM liE nu5 DE 


1F=0 PRINT 

160 PRINT TR5 4»; *'UC PRECISA De 
OXIGÊNIO" 

170 PRINT TR5 4-; "RTEH ENCÜNTRhR 
h SRIDA." 

180 PRINT 

150 PRINT T RB 4; "COM MENOS DE 2 
O LTS" 

280 PRINT ThB 4;“DE PP UQCc MOR 
RE. . . . E** 

210 GÜ5UB 2370 

220 PRINT ThB 4j ,, 50h LHE RESTAM 

230 PRINT* AT 20 } 3; "DIGITE NEW L 
INE " 

240 PRINT PT I,S;L$;AT 1.6;Kí 

250 IP INKEV $ =" ** THEN GOTO 240 

260 RAND 

270 GGSUB 1610 

230 IF U<1 THEN LET U=1 

290 Rh ND 

300 GOSUB 2300 

310 IF K =0 THEN PRINT “«HALL ”; 
320 IF K = 1 THEN PRINT "IshLh “ 


310 


-— • * • — » * i * k. : i i— i—. * ! t i 

330 IF K=2 THEN PRINT 


r 


hLh 

UNEL 
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:iCBl= K=3 rriEN kKí« 

350 IF K=4. THEN PRI^ 

350 PRINT DOS 
370 RflNC 

3S0 SCSUB^Pg® CSTN 


r> - h 


A 




410 


N 

FPIN~ 

• 4 *W • * < 
- * i ' 

N 

—- —• Tf-iT 

T- T- - : 1 * 

PP 

» 

1 

PP I r -T 

. i~ 


F h =4 ~ ‘ 

_ — — _, w »- • Z C T í -i" 

=r - — ”:Ll » - 


4 =! L **. - 

T ” i.. — i "HFÍ'4 — r 1 - 

jGH-Z ‘__ 

440 :-: 

4 w L ; — 5 ““ 1 ■— 

460 -~ t t ' 

470 - = ^Ípw= =4G 

t;-,â TF^-1 'hen 


50 M H ti B 
PPEPHB 
- - ~ z i E G 
i.i p M PIh 
:4nGü: 


490 4^ 


z 0 4 Z- i . _ ~ r • 


1 _7 X H 


i- •-* 


HilN Pí" IN _ Z“ 17 ! —- r* Tr. ‘ - 

— * = t = :«: = • I "itlM ^ ^ 4 ~ 


^ *. S 

» '4 

•- K 4 •*« 


— 

EN 

PPINT 

|Pz 

: 

EN 

PR INT 

DH 

H 

EN 

PRINT 

"DP 

• 

■EN 

PRINT 

•EMC 

íC 




620 IF J =3 THEN PRINT "CHOCANTE 
"630 IF THEN PRINT "PARA P 

E 640°IF Y Cl THEN LET Y = 13 
|Ü PRINT "WJC TEM ";Y; LTS. D 
E 670 1 LET 1 K= INT t**RND)+2 

Í!Í ^3‘-ÍS5C Í §^ ) E M FRENTE 

H -lè r IF E =0 THEN PRINT “ SflIDPS;; 

-720 IF E = i THEN PRINT ” PORTA? 

730 IF E =2 THEN PRINT " TUNE Io 

7 I 0 PRINT "BQUfiL UOCE OUEP TENT 

PP;? " 

760 INPUT H 

770 GOSUB 1610 _ _. ... 

7S0 IF Y <20 OR X >6 THEN isJTu lo 

20 ” 

790 IF RND<.1 THEN GOSUB 1150 
S00 IF h < >K THEN G05UB 63© 

610 IF H =K THEN GOSUB 1150 
620 Rh ND 

830 GOSUB 234.0 _ _ 

84.0 IF K =© THEN LET E*="URMPlKU 

srnguxnario” 

850 IF K = 1 THEN LET E$ = "MONSTRU 
DRS TREUR5 M 

860 IF K=2 THEN LET E*="DR GOTO 
PUS “ 

670 IF K=3 THEN LET E$= LGB50HE 
N" 


580 IF K=4 THEN LET E$ = * EhNDIDu 
E 5T R IP H D Ü R' : 

89© IF K =5 THEN LET E % = s ‘ MORCEGO 
NEGRO" 

900 PRINT “■PERIGO, UOCE DEU DE 
CRP.H NO” 

910 Rh ND 

920 LET E = INT f 6«RND) 


5 ERIGO, UOCE DEU DE 


, FT FS= UM TPEM 
Q3C IP E=0„THCN UET ■ í 

ENOO PUNhHU rHEN _ £T F$ = "'JMH Mt. 

D SfHfiD0R«'0E.i6.HH | ^ uRN CP 


íÇLHfiDORg^ t T HEN' LET =*= - ; ~ RHuH 
CHHMH5 _ _ .—vi . srr F$= !S Ü^H ---5 

560 I r Ef 5 5 r|t - r * w _ 

TOi-H L-flSfc** ^ FT F5= UH Bhi. 


• H — — 




■“ — 0 — r~-. — :’4 í 

■ • 000 rr.ÍH_ 

IS10 

1020 


r-iO VUS 


-,-=• PPEr 


10 30- -tiènu 
1040 SU3UB.ii=“ 


1390 { 3 +PND ■' +1 

1100 S-EI 

1110 3 upu 3 -nsiiB 1950 

• ‘ £0 IF = 209 

TPP?= gí >C “C. • -' — 

Hl! BÍTMT =i ÍuociI?Çík %..=.« 


1111 iF E ; L^ En 3Q5UB . 

Hl! prÍnT^InUH 9 -9RT0 FSCUK 


-L — — ^ 
— - rs 

i T -í 


U = W - 


15^0 - =í A ^^ ! 'P£T üPN 

|piHT ÍO ÍÊ^ UHh PPI55PGEH ! 


VsV-ÍMT ií^PNDi+ = 
“ rr F = TN”*" ! - L , 


-? —- C: 


— i M = M — i- 
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«00 LET E=INT (lS.fiND )+ í 
1310 PRIN' 

1320 PP IN 


^ORP-E,..^"- 


c * T 

E . 1 


1330 PRINT ' GR5T0Ü 

li fll» 

llii IIInT^InP^SprIpS DR PR INC 

E =0 THEN PRINT "SEBOIA" 
1^37 IF E=2 THEN PP T NT “RNDRuID 


1385 IF E=i THEN PRINT “SEBOSR 
13Q0 LET E = INT CRND*I0) .... 

■i í Q - J F £ 4 THEN G ÜT Ü 4- c! c! _ 

b;9S PRINT 1E ELh CHUTOU U PPL 

BUMBUM” 

14-00 PRINT 

1410 LET E = INT i. 15tPND> 

1420 PRINT “Bh EUFORIA Du i>EU HM 

OR" 

1421 GOTO 14-J0 „ _ , 

1422 PRINT "ÍO SEU MEDu m 

14-30 PRINT Bl-íhpTuU L - ‘-' E 

RP " 

14-40 LET Y=Y-E 

1450 LET U=U+INT <3*RNDJ+í 

1452 PRINT 

1454 PRINT "lUC. E5TRH NO PETOR 

” ; U $ (W) 

1460 RETURN 

1470 PRINT «ESCORREGOU NO SRBflu 


1430 PRINT 

1490 PRINT "IhGORh, MENOS 10 LTS 
DE RR." 

1500 PRINT 

1510 PRINT "BPREUINR-SE. QURNTO 
mais rnpRFP •• 

1520 PRim- ‘‘■MRIS 5EM RR FICRRRH 
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iltl PRINT “BQURNTO CORRE \.d 
lill irK/o S K>W THEN GOT. 

ilsl l|t ÚÍÚ-INT tK/21 

illl ggifff B=U FfiLEI. GflSTO 

K«2; " LTS.'J_ 

1590 GOTO &--*v 


Fjisrrfi QQ 




1700 PRIN- H 
1710 NEXI N 
1720 5LÜW 
1730 PRINT H 


0 


26; 


19,0 


1000 PRINT RT 5,0 

liai print N ‘»joce estph chegrnd 
fiü FIM- 
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ÜJÍ PRINT -BMCE tem RR SUFICIE 


mte?" 

illi PRINT '»IGrTE NEU LINE fv 

?p§°!5í5í p, 

1380 PRINT __ K *_. ] 

13Q0 IF V<20 TMEN LET 1 

UOCE MORREU 
1Q CMP \ IF Y <2 0 THEN LET 

1910 IF Y > 1? THEN LET K$ = “: 
DÊSTH VOCE ESCAPOU." 
iQ3fl TF Y > 19 THEN LET U$- 


Nfi. 


:h .... 


1930 GOTO 24-00 
194-0 STOP 

1950 RAND „„„ 

1951 LET E=INT «RNDí2> 

1952 IF E=1 THEN GOTu 1953 
1954- PRINT ' «GUflSE QUE" 

1955 PRINT "FiE».;" TE PEGR 
1957 GOTO 1950 

1953 PRINT TE PEGOU 

1960 LET Y =Y + INT (3*RND)+1 
1970 PRINT "BFICRM ";Y;" LT5 DE 
RR " 

1930 LET W=INT (3*RND)+1 
1990 PRINT 
2010 RETURN 

2020 PRINT "Bü ,, ;E$; , ‘ PEGOU UC 
2030 PRINT 

204-0 LET Y =Y - INT (10<RND)+2 

2050 LET U-W-l 

2060 IF W <1 THEN LET U = 1 

2070 PRINT "BE MANDOU DE UQLTfl 

p/ o ";u$ cU) 

2030 PRINT 

2090 PRINT "BSOBRfiM RP ENR5 **; Y; 

LTS DE AR" 

2100 RETURN 


2110 PRINT 
2120 PRINT 
2130 PRINT 


JM CACETETE(1)" 
JM CRPRCETE(2)" 
JU UM CACETEí3) 


1 


2230 

2240 

2250 

2260 

2270 

2230 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2330 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2430 

2490 

2500 

2510 



2140*3 ETURN 
2150 PRINT 
2160 PRINT 
2170 PRINT 
2180 RETUPN 
2190 RflND 
2200 LET K=INT 
2210 GOTO 
2220 PRINT 
PR INT 
PRINT 
RETURN 
PRINT 
PRINT 
PRINT 
RETURN 
RflND 

LET K=INT 
LET Y=Y-K 
RETURN 
RflND 

LET_K=INT 
G QT O ü 3=0 
RflND 

LET K=INT 
GOTO 2320 
FOR H = 1 rc 
FOR N=1 Ti 
PRINT hT : 
NEXT N 
FOR N = 1 TÍ 

PRINT h 

NEXT N 
NEXT H 
GOTO 
SfiUE 
CL 5 
RUN 


Hfl METRRNCfl CU " 

Mfl TRflNCfl (2) " 

U UMfl RETRANCA(3) 


(RND*4)+1 


CHORAR (1)" 
IMPLORAR(2)" 
FUGIR (3) " 

5A5IC «: 1J " 

COBAL 12)" 

FORTRAN(3) 


í RND *5 


ÍRND+6.' 


i RND*15i + 


10 

6 

. +N 


ii-f N 


0 j K$ 


0; J$ 


"CfiSTELB 


92 



BANCO IMOBILIÁRIO 


Para 16 Kbytes de RAM coi cu sem SLOW. 

yoce possui Cr$ 2.000,02, disponíveis no Barco,pa 
ra aplicar em ações ce 5 diferentes companhias. 
Sobre o valor que nàc for aplicado ei ações o ban 
co cobrará juros. A cotação das ações e os juros 
variam após cada operação . 0 objetivo é captar 
um salde bancário acima do valor inicial. 

Voce irá a falência,se o seu saldo for consumido 
pelos juros, ou se adquirir ações se« saldo dispo 
ní ve 1. 
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Fazendo transações: 


Compra: digite o número da companhia desejada e 
o número de ações pretendidas 

Venda: digite o número da companhia e o no.ero 
de ações a vender, precedido do sinal de menos. 
Passar a vez: digite qualquer co.panlua e com 
pre 0 (zero) 

Reiniciar: escolha coapanhia 0 (zero). 

Como este é u. programa brasileiro, na maioria 

d, s ...... >.< «Pifl «ri —!■>»" O* 1 » 1 *» 

ros" e o resultado será a fallncia. 

BhNCO IMÜBILIhRI u 


ClH . 
1 
5 
3 
4 - 
F 


H" COTfTS 


RNT - $ 
34-6 
538 
6 8 5 
967 
1168 


EtrrpTlUH DE 


uhLOP $ 

336 

605 

676 

1025 

1011 


!5$§lo8ibiWpco E ? lsl E5 

Com S ■/■ DE jUROs 


OUHL fl CIO.? 
QTflS. COT fio 

digite ijmh teclp 


20 FRST 
25 DIM P(3,5) 

30 FOR N = 1 TO 5 
TF RAND 

40 LET P, il.N) =(IMT (RND *200) ' * 
N *200 

45 NEXT N 
50 LET PP=0 
55 CL 5 

60 PRINT •' BPNCO IMOBILIR 

PIO" 

62 PRINT Hí 

65 PRINT 

66 PR INT "C IR . N* COTR5 " ; TPB I 
6;"RNT. % “ TPB 25;"UflLOR *" 

70 FOR N = 1 TO 5 

75 IF A í 3 ,Nj =0 THEN LET R(3,N) 
=fl(l,N) 

30 PP INT N;ThB 6;R(2,N)j TRB ib 
; P (3 :N) ;TPB 25;Ríl,N3 

65 LET PP=PP+ CR i2.N3 *fl i3,NJ • 

90 NEXT N 
Q5 PRINT 
96 PRINT fi$ 

93 PRINT 
100 PRINT 

102 IF PP =0 THEN GOTO 110 
105 PRINT "UOCE APLICOU ST PP;" 
EM RC0E5" „ 1M 

110 PRINT "DI5P0NIUEL NO BPNCO 

$ ** * 0 

115 PRINT "COM “;U;" b /b DE JURO 


120 PRINT 

125 PRINT "OÜRL P CIA.?'’ , 
130 INPUT Z 

135 IF Z-5 THEN GOTO 130 

136 PRINT Z 

140 IF Z=0 THEN GOTO 999 
145 LET AP=8 

150 PRINT "QTA5. COTPS , 
160 INPUT C 
165 PRINT C 
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1™ l F F fiíi JwSbsTc/thEN GOTC 

II 

£05 LET H(£ iJ=H + - 

210 FOR N=I >U 5 _ 

ÜI tlr SSÍInjSnÍms + 

N +50* CRNC -HN,. ■ > 

1 o 

1!l iF E !iW5Bío-|r 

III Srxht ••* " ms «' -" EH _ DEB 

IT: z!^ — Tr ;T üt 10 10; ‘ FfiLtHClH - 
270 HH INI ‘-•2 ±X í • * r- T" TJP i íHh 7 
272 PRINT H t Ditei* - -■*• 

ECLR 1! - •••» THEN GQ TQ 9 99 

II! Kxí¥it i á ' 10 'a®** 

”-;00 G*JTU ^ v 
iIO 5TÜP 

11! PRINT PT 20,e,' DIGITE UMB 1 

E |lã§"PRINT BT 10,6T TENTBTIUH DE 
FRAUDE” 

506 IP INKÇI*^; 


T ri EH GOTO 50 


510 

PRINT 

M S 

520 

GOTO \ 

500 

500 

a i 

PRINT 

1 c 

1 

”610 

G OT 0 

Q Q Q 

Q 9 9 

PRINT 

RT 

-dig: 

TTE ENTER 

1000 

INPUT 

p* 

1001 

CLS 


1003 

RUN 


2000 

5hUE 

RH 

2010 

G OT 0 

100 


,0,-OüTRR VE 
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SOS ENTERPRISE 


Para 16 Kbytes de RAM coi SLOM. 

Os quadros a seguir oferece* u*a idéia do que se^á 
a operação resgate Enterprise. 

Obs.: a sua nave se deslocará na direçãc indicada, 
de 1 a 12, conforme as direções de um mostrador de 
relógio, de 1 a 12. Para obter a pergunta "QUAL _A 
DIREÇÃO?", pressione qualquer tecla. 
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50 LET ','=.01301 
90 LET J=0 

92 GOSUB 94-00 ___ r , = _ 1 . 

100 LET UD=PEEK 16396+256+PEEK. 
16397+1 
102 LET J=ü+1 
105 LET E $ =" 

a a 

110 LET X = 1 
120 LET T =999 
130 LET NS =‘' S 
14-0 LET ÜS = "M& 

500 GOSUB 1000 
502 GOSUB 1500 
505 SLQU 
510 LET X=HX 
520 LET Y =2 
530 GOTO t>60 
540 5LQU 

550 PRINT RT X.Y;U$ 

555 PRINT RT MX 26 ; "SOS' 1 

560 LET CR=PEEK (X*33+Y+'JD) 

561 .-ET US=CHR$ (CR) 

564 PRINT RT X/f .N* 

610 IP U$="H" THEN GOTO 5000 


612 

IF 0 $ : 

= •‘8" THEN GOTO 6000 

613 

IF U$: 

="Q" OR U$="S" THEN GO 

TO 9000 


614- 

IF Uí 

= “I 11 THEN GOTO 7000 

615 

PRINT 

ht hx , 26; -mm- 1 

616 

PRINT 

RT X.Y;"O" 

635 

PRINT 

RT 0,7;J 

636 

PRINT 

RT 0,17;INT ÍU+5) 

64-0 

PRINT 

RT 0,23;T 

650 

LET T 

=T-100 

652 

IF T< 

=0 THEN GOTO 8000 

660 

PRINT 

RT X,Y;U $ 

700 

IF INKE r $ = "" THEN GOTO 550 

705 

PRINT 

RT 20,0;ES .ES 

710 

PRINT 

RT X.V;N S 

720 

PRINT 

RT 20.0;"DIGITE DIREC 


RO (0 fi 12) 

730 INPUT U 

740 IP U >12 THEM GOTO 720 
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3030 
303 = 

304-0 NEXI 


ppINT hT 055L-I:ü55C-1:05 
PR INT HT 0B-5L = os SC - - ; *-* $ 


3500 


HX = INT i 14- * RND ’* + w 

;510 FOR H-1 “0 £ __ 

H = 1 THEN i-ET 
— — " Hs N L ST 


— 


3512 Ir 
3514 I? 

3 520 -RI N ! P. 
35 30 FOR N = 1 


H — 0 _ 
r =w7 


• ; a — > 


PR IN' 


; w 




3*RNDj 
3550 NEX 
3560 


NEXT r*i 


HX .25, ' 3 0 ; z* 


3570 
5 00 0 
UhP; 

5002 

5003 
=■ r\ n = 


T 1ÍK ?'-i 


1-' 


i — — 
_ 1— I 




RpTE. = r 'l 


>: = x - - 

V =V - 3 -*r '• 1N 


*- r ’* 
*,! 




” RND*3 + '1 ! 


_ w «- —• 

5008 

PRINT H 21 ,0, ‘ 

PERDEU 

T5. D 

;_ | - 1 S — 

~ »_ ! 1_' f 


5010 

8000 

P - INT h” 20 = 0 

' VL » BhT 

O UT P w N Hs * 


5010 
6012 
6013 
80 !5 _ 

RRINT hT’21,0; 

RNl- *3 + j 
PNC *3 4. : 
PERDtU 

1 •»’ ■ 1. 

— "• í~i r.i »—• 

-•_ í iL.' i 


5 0 2 0 
7000 

w : : - J ‘ V- 

P P: I N~ P ” 20 0 

•JC. re: 

100 

“ . Q ^ ;_j r*^ 71 , 


7010 

-S -r- _T * 

c i — • T -i. t* «-* 


7020 

““TQ 550 


8000 

5005 

8010 

LET T=0 

PR INT P 0 i - - - 
PRINT H ? 20.0 

0.0i 

SEU CO 

; : r— : i~ ■“ S — : “• ; * 1 

iz. L HLnu' — -■ * _ _ 

^ ff" 

3012 

P RI NI H ’ 

£ 5 

8015 

P P I r«T H T 2 j. «t * 

L- : ^ L- I c 

P/ 

PEhkHhR. ' 


8020 

. INPUT U* 


6030 

* *3. 

**_ W 



- rs. 

- t %- 




7 »■«' 
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20 5 ; "UC. PCELEPQÜ 


304-0 GOTO 99_ yy-iQ 

llll íf ÍÍUtSeN^LET y|30 

3597 IF V ■ O_THEN LET r=l__ 

3598 PRINT P" 

DEMAIS'' _,, 

8=99 PRINT H! i 

3500 PRINT P T £1,0;' PEPXi_U 

T5 . DE COME-. 

8605 LE I í =T -I 

alá! PRINtV £0 Oi "PARABÉNS, UC 

Â0!£ L PPINT RtISí'.©. "PARA PECOMEC 

hR , DIGITE ■ .- ;(= . - iSSi i: : wT HX * 

9005 PRINT hT H.x jC b,. IflBi -• 

l|ie S S?"iNttEY*=" THEN S0T0 9000 

90£0 CL5 _ 

•3030 GOTO 99 
94.00 GOSUB 1000 

94-C0 ^LUw _ . 1 . • • r i-, 1 ' 

US8 PRINT P 1 -■</£■ “BEM^UINDOS PO 
9Í!S fl EÍxNT U §T H 5,6,"E5TP EH P OPE 
95 i|°PRINT PT 0,6;"RESGATE ENTER 

llIfplÍNT S Ví BK E5TAH N 

1rIÍ H PPINT PT 12,*,"CONTROLANDO 
§ 5 1| R ?|?St PT 13,6; "E O COMEU STI 
PRINT PT i5,3;-DESVIANDO DE 
9572^'pRINT PT 17,2; "PLANETAS E 0 
9572 5 PRIN? S PT 19.S,"ATENDENDO P 
^5?| J PRINT PT £0,0;L* 
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9550 PRINT PT 1,14-,"8® > 8 * 1A 

95 90 PRINT PT i , 14-; "SOS" ; PT 5,14- 

gtSPlP INKEY $ = '" THEN GOTO 9580 

9605 CL5 

9610 G03UB 1000 

1,"SUfi NPUE EH S 


9612 

SLOU 


9616 

PRINT PT 

1,1 

E 0 

OBJETIVO 

EH ’ 

9618 

PRINT PT 

2,1 

HL Ll 

JMIN050 Si 

□5 ” 


9590 PRINt"hT_ 5,1, "PPRH ENTPPR P 
96Í2 E pRINT fl RT W s!1;"DIGITE UMfl TE 
!6§4 E print G aÍ R 7^i.;“direcro de 1 
9625 ' PRINT RT H s','l; "BUSSOLP-RELOG 
9630 PRINT hT_ 10,l;"R SEGUIR INJ 
Í6Í2 C PRINT T flT t ii.IJ"Nfi OUPNTIP D 


, -1 


00“ 


9634-”PRINT PT 13 l;"UC COMECP CO 

M QQQ i TS DE COHB . ___ 

9636'PRINT PT 15, l; "NPO RERCh TE 

MPO OÜ O COME- HLPEH" _ __ 

9638_PRINT PT 17,1;"DEsuUBRfi us 

ÍIS H PRINt'hT 15, l; -DIGITE UMP T 

leis PRINT PT 1,13 ;-O”;pt i,is;" 

f 6 4-6 IF INKEY * = "■■ THEN GOTO 984-5 

9700 CLS 
9800 RETURN 
9980 STÜP 

9990 SflUt "EMTtRPRI^a 
9999 RUN 
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PUCKMAN FOR 16K ZX81 


BEAT THAT HIGH SCOREI 
GOBBLE TH0S6 DOTS 
BEFORE THOSE MEANIES 
GOBBLE YOUI YOUR ONLY 
AIDES ARE FOUR 'PCWER 
PILLS” WHICH MAKE THE 
MEANIES EDIBLE BUT 
NOT FOR LONGI 

• MACHINE CODEO FOR FAST ACTION 

• EXTRA "GOBBLER" FOR 10.000 POINTS 

• ON SCREEN SCORING 

• HIGH SCORE VYITH ' ENTER NAME FACILITY 
•UP TO 4 PLAYERS 

AN ANNOYINGIY FRUSTRATING GAME IFOR ONLY $14.95 
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GUERRA NAS ESTRELAS 


Para 16 Kbytes com Slow. 

Pode ser facilmente convertido para 2 Kbytes e pa 
ra uso no modo Fast. 

As linhas de 500 em diante contém as instruções de 
uso e podem ser removidas junto com a de núme-o 20. 

Para uso no modo Fast, substituir a interpretação 
da função INKEYJ por INPUT X$ e digitar New Line 
sucessivamente para obter movimento. 


HhS E5 Rn-^- 


yf: £5"H PE" 
5UH kCTP -- 

r-wRFNDO 0 tSP^C-C. 
c p H H R C H D H V U H - 

PS ESTRELPS 
FRENTE .Dt-v 
HS TtCLPi < 
EM CC'LI=-HU 

SLhGI^hD P SUP 

IÊ üSRHDO 

N E H > _• 

UOCt PEkDú 

1O0KM/H L‘t 


:=,E PT IMG IC C 
PERDE 300 “ 

PELO INIMIGO S 

LM/H. 

COM MENOS L 
PERDIDO NO 

>E 100 KM/H, UC FJZh 
ESPRC-0. 

DIGITE N/L 
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M IIJ 


m 

900KM/H 
900KH/H 

% s 

♦ «£ 

* s * 

« 4 - 




wDI 
GüTPh 
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10 REM MICRON ELET ROM IUH 
£0 GO SUB 500 
50 SLOW 
100 LET fl =18 
185 LET B=1 
110 LET 0=18 
115 LET T = 1808 
120- LtT D = 1 

125 PRINT hT u.h, + , 

126 PRINT Ri 1,23.. K.1/H 

líl LET''fi=R+ *. INKEY*="M" hND h<3 
0) - í INKEY§ = "N ; HND R >3 > 

ifil IF T RNd!;? THEN PRINT RT RND 

*Í70 5 pRINT 3 flt"ÍNDn0 + ie - RND*30; " 

t» II 

175 PRINT h t RND*10+I0.. RND*30; 


200 LET N È=pÈeK'ÍpEEK 15398+256* 
PEEr, 1^.|J; 2 _ flND EolS9 THEN GO 


r> 


TO 125 

220 LET D=D + i _ 

225 PRINT Hl C s h ; 13 

226 PRINT H! C+1,h; H 

230 LET T=T-100 ___ 

2-^5 IF- E = 189 THEN LET T=T-300 
24-0 IF T < 100 THEN GOTU :J00 
— : 5 0 uT U i c. 7' 

:“;00 PRINT HT 18.. 0; FIM. 11 __ 

305 PRINT **PERDIDO Nü E-f'H-U._ 
310 PRINT y - , "OÜTRfl UEZ •' Diun £ 
N/L" 

320 INPUT P$ 

330 CL5 

350 RÜN _ 

50.0 PRINT . . T GUERRR NR5 tfTRELK 

510 P RINT , ; ' UC E 5TR PERCUKRE ND 

0 0 E5PRC0. _ _ 

520 PpINT :! SUR hOTh FIlh MhRuhD 

h POR +"’ 
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Ponta de Prova para Osciloscópio 



CARACTERÍSTICAS 

• Ponta: Tipo "Sprung-Hook" que permite o teste tanto por toque, 

como deixar a ponta firmemente "enganchada em ter¬ 
minais ou fios. 

• Conector: Tipo BNC. 

• Comprimento do cabo: 1.50 m. 

• Tensão de trabalho: Até 600 V CC (incluindo picos de CA). 

• Baixa capacitància. 


MICRON Eletrônica, Comércio e Indústria Ltda. 

SUA CANDEIAS, 10 — PAHOU6 «NDUSTUIAL — AV. $AO JOAO. 74 - FONE: (0123] 2241W 
CEP 12300 — 8AO JOSf DOS CAMPOS — S* 
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FLOPPYDISC 

INTERFACE 



Sinclair ZX81 orTimex 1000 


CEIITROniC^c 


no 




Para 16 Kbytes co« SLOW. 

Fste programa simula um jogo de Golfe. Gera as dl 
ferentes casas coa diferentes situações do caapo. 
Oferece obstáculos no campo, coao lago, arvores ou 
moitas, valetas e elevações que reduzem a intensi 
dade da tacada, etc. 


-- 




k—> 




=-r 


* • 


*3 








Para uma tacada.duas perguntas devem ser respondi 
das: 
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I. Qual a direção ? e 2. Qual a intensidade ? 

Digite qualquer tecla e aparecerá a priaeira per 

gunta. Digite a direção desejada de 1 a l2,confo£ 

me as direções de ua aostrador de relógio. 

0gp =[ m w j r k C N E L ET R O NIC P 12.52 
10 FP5 7 " 


o0 l— ET H-i-I /si* 

_4-0 LET UD=PEEK 16396 +255*PEEK. 
16397 +1 

50 LET CR = PI-PI 
60 LtT gsCP 
70 LET K=CP 
60 LüT -í = ' : 

90 FP5T 


100 

LET 

P=INT i3+3*RND> 

110 

LET 

T=CP 

120 

t 

LET 

MT5 = 10 *INT ÍÍ0*EP 

J 

130 

lET 

Sl=6i/MTS 

140 

LET 

B=B + 1 

150 

lET 

xs= u 

160 

CL 5 


170 

FÜP 

N=0 TO 20 

160 

PRINT L $ 

190 

NEXT N 

200 

FOR 

N=2 TO 26 ST ER 4 

210 

LET 

X=5*5*RND 

220 

P P: I r 

ÍT PT X . N ; 

230 

FüR 

J = X TO 11 + 5 *RND 


24-0 PRINT ThE N; "l" 

250 NEXT J 

260 NEXT N 

270 LET 0=1 

260 LET VI=3 

290 L L’ x 0=0 

300 LET XI=20 

310 LlT h$ = :: H ! 

320 FÜP. Z = 1 TO 2 
330 LET y0 = 5 + 20$RND 
34-0 GÜ5ÜE 1310 
350 NEXT Z 


112 



11 


360 

LET X8 = 3 

3 70 

LET 70=2 

380 

j..m 

q 

11 

m 1 

• n 

390 

LET i=2E 

4-00 

LET Hí=® 

*10 

LET 0=.12 

4-20 

GGSUB 1310 

430 

-ET V0=INT 

440 

-ET Y 8 =28 *P 

450 

~ 0P N =X0- TO 

450 

-lí V1=Y©+2 

470 

PPINT H! N: 

: 4 P N D J 

450 

NnXl N 

4 90 

LET -tX = INT 

500 

rp INI HX 

510 

FOR 1=1 TQ 

320 

hki N T *—: ^ 

538 

NEX7 I 

540 

PPINT h 0 , 

-;« q 



!»j 

550 

£T: T ». iT r~: 

r* r». j.: *« ! ri hj - 

5 6 0 

LET 5<=13 

570 

LtT By=2 

- - 

-PIN7 PT 0.1 

26 j 

CfiSfl 

_ 

6 _ j i.i 

600 

> 

PPINT P:T 10 


! 1 


70 


4- 


3 ; -f 15 * P N D) 
- 2 , 0 , 


L H D F 


MT r 

2 : • 


MT:= * 




J 9 4. 

: 


H 10.21 


C* = 


*.; 1 — 1 — - 

f *1 U 1 _ 

•- -í 


4 5 . H“ 


610 IF In-.EY 5 = 

620 PPINT h7 2: 

IPEChO ! 0 - 12 j*" 

630 INhUT i.-i 

64-0 IF U 12 “r EGOTO 6-30 
550 LtT U=Li+p 

660 PPINT hT 21,0:55;PT 21 

ntensidhde * 0 - 100 ‘ •?” 

570 XNPÜT 5 

650 -PiNT h; 21,0.Es 

690 LET 5=5*51 

700 Ir * THciN LET" 5=5/3 

710 FR INI PT BX,6Y;x$ 

~ 1 : iTS 1 cr— -r — 


0 


1 ü 0 Li_ i 

730 Lí: ; 


K =0 
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rj 1 n 



74-0 LET BXsBX-S*€OS U 

Z5g V5 T B P = Tsí?ÍÍw=ía and BBS 

f p3t -í.g-, " =15,5 THEN GOTO 330 
-?70 IF BXí0 FHEN LET BX-t 
TÃO IF BX>20_THEN uET Bx=«.0 

790 IF BY<0 ««CNLE' 

S00 IF BY>31 THEN Li_ : - ' 

111 pSiMr’5l 1 2i.«i,’. , í ORn 00 CBMP 

°A30 E LET T Í*=ShRÍ fÍEH tira- BX-. 

“àíS 3 !?"!*-!* T«6H éoro -350 

THEN GOTO Si? 

ff! | £ i Tülí IStO ílll 
11 ít fi ípjgíB ilfl 

'=*10 hRXK* 0_L ■ «D" - py RV . RV 

920 PRINT Ba , B t , 5 . h i c..,«- ■ 

m IF INKEY $ = “ THEN GOTO 920 
9 4- 0 G CT 0 6 2 0 
950 CLS 

960 LfcT P=T-»- p -, r,.. 

Q70 PR INT : . í B. &ULH =M .. T .. 
930 PC INT . . “NO BURHUO EH ■■ ■ ' 

39§ fi IF S p=-l THEN PRINT “NflDfi HH 

1000 IF P=-2_THEN PRINT "HUITu B 
0 t -1„ MEU5 p PRKHBtNg. 7ENCRIUE 


1010 

IF P=-3 T 

l . yc 

, EH UH U 

1020 

IF P . 0 FH 

H OH 

5h " 

1030 

_ET OP=CP 

104.0 

PRINT RT 


10F0 IF INKEY* = ““ THEN GOTO 1050 

\%%% IgíSr 9 8r £1.03"UC.ERROU POR 
°ÜUCÜ. 
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1080 

i“ : ~ ~ —, -* 

'-T X IX Z? X X 


1090 
PT EU 
1180 

PRINT PT 21,©;Eí;PT 21 

£l M y M j y j h C ü L 0 

LE~ T =Tx1 

, 8j "B 

1110 

“ -z — a •- — 

z - •- X : X X-X 


1120 

h HINT P 1 SX BY ; 1 .i H O 

x; T 

1130 

LE” EX = 5X 4 3 4 RND - 1 


1140 

LtT BY = BY45 * RND 


•? 1 CT.-> 

X X X \J 

LE~ X$=CHR$ PEEK i. INT 

BX 4 , 

5 i *3C 

f + xN ' (Er -*JD ! 


1160 

|~• I~. •— i ZZ A A — -S 

KZS X' •_ 'XX XX — X 


1170 

í — * j"; «€ ^ 

X ; X X —- X 


1180 

£ !_! r*. ^ 1 •_! — k" • 


1 458 

nnTKi-r i~~ c v c-\.- • 1 -z- • < • ~r~ 

r r. i! * : r~. ! x A , u i i w' ,i r! ! 

w 

i_> A i X ? 

1200 

NEXT N 


1210 RETUPN 

1220 PRINT PT 21 .0; "UC.hCER 
Hh PRUuRE , PENPLTI . *• 

Tfiii i i 


1230 

LET T=T+1 


1240 

GOTO 310 


1250 

Ph INI PI 21,5;"UC.ChIU 

r. i S“i: i 

! *1 'X X 

RGQ : 

ncuni -r t -- 
r k_r<riL_ ! x « 


1260 

LET T =T -f 1 


1270 

GOTO 310. 


1230 

PRINT PT 21 . 0; " PEQUENP 

UPLE 

TR ,ü: 

>E MH 15 FORCP . ! * 


1290 

LET K = 1 


1300 

GOTO 510 


1310 

LET X =LEN h$ 


1320 

LlT N = ( Y 1 -X ) 4 Y 1*0 /X 


1330 

FOR 1=0 TO N 


1340 

KK INT PI XI *RND - X0 , Y0 4 

‘ix- A 

« sRNC 

»;h$ 


1350 

NEXT I 


1360 

P-ET uRN 


1370 

ST OP 


1380 

FOR 1=16514 Tü 15524 


1330 

INPüT h$ 


1400 

PQKfc I , ÍÜQDE H $ (lí -25í 

4 16 40 

ODE H $ (2) -28 


1410 

NEXT I 


14 i£0 

ST OP 
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Usa rotina com 23 bytes no código da láquina possi 
bilita a inversão instantânea dos caracteres íos 
trados no vídeo. 

Aqui, a escrevi coe u« pequeno progra»a e« Basic 
para edição dos códigos e de»onstração. 

INUER3A0 DE VIDEO 


INVERSÃO I 

PISCANDO 2 


HICRON ELETRÜNICA 




VIDE 



ICRO 


1 ga«agflS5 
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Digite o programa a seguir, com pelo menos 23 ca 
racteres (quaisquer) na linha 1 REH 


1 R d M 

X >. X X X X X 


XxXXXXX • X XXXXxXX X *• X 
X X X X X! X!’ X X- X ' X x x. x. X *' 




«. 


5 SLQU 

10 PRINT ;- INUERShO DE UIDEu 
15 PRINT = . . "INUERsflO" “l" 

20 PRINT P àSChNDÜ " , "2" 

25 PRINT . , , , . “MICRON Ei-tTRuN 
ICR" 


30 

LET L=U5P 16514 


35 

IF JNKEY$ = !! 1" THEN GOTO 

50 

4-0 

IF INKEY$ = *“2" THEN GOTO 

— .** 
_ VL 

45 

GOTO 35 


50 

FOR T = 1 TO 50 


60 

1*4EXT T 


70 

i-:fiTQ 30 


90- 

5TÜP 


1010 

FOR N = 16514 “ f ‘0 16536 


1015 

PRINT N, 


1020- 

INPUT X 


1055 

PRINT >: 


1030 

POKfc N.X 


1040 

NEXT w 


1900 

5 T O P 


2000 

Fnp N = 16■=-14 TO 16--36 


2010 

PRINT N,PEEK N 


2020 

NEXT N 



NÃO RODE o programa. A linha 30 poderá destruí-lo.. 
Use RUN 1000 e entre os códigos listados a seguir, 
em seus respectivos endereços. Para conferir, use 


RUN 2000. 
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165 14- 
16515 

16 b 16 

16 51 T 
16515 
16519 
16590 


6b24- 


16526 

16527 
16525 

16529 

16530 

16531 

16- 5 3 3 

16 II l 

16566 



NAO RODE o prograna se« antes grava-lo. 
Para testar o inversor use RUN . 
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SOM POR SOFTWARE 


Este prograna, coi uia sub-rotina no código da mk 
quina, perai te a execução direta no teclado do li^ 
cro de usa oitava coapleta, coa beaois e susteni_ 
dos. 0 prograaa anazcna as últiaas 100 notas t£ 
cadas e peraite reproduzi-las ei 3 diferentes ve^ 
locidades. 



pise 


ESCOLHA Q UELOCTDRDE 

PRRfl REPRODUZTP 

KHP IC Ü CIGITE 0 
HODEPRDO L 


PRRfl TOCRR 
DIGITE 5 

USE TECLH5 

2 4. S 3 

Q UE R T VU 
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0 efeito sonoro pode ser obtido por qualquer u» 

dos iodos abaixo: 

A. Cot o licro ligado'a TV pela antena, sinple^ 
■ente auiente o voluie da testa e ajuste a sin 
tonia fina, 0 Belhor ponto da sintonia fina pa 
ra o sob nào corresponde ao telhor ponto para 
o video. í caracteristica dos circuitos de TV. 

B. Ligue a salda MIC. do cotputador'a entrada de 
ui atplificador de audio. 

C. Aproxite do coiputador u« rádio FM sintonizado 
entre 102 e 106 HHz. . 


Digite : 


•• 


1 REM XXXXXXX XX XXX XXXXXXXXXX> 

■ • XXXXXXX5ÒÍXXXXXXXXXXXXXXXXXXXXX 

v V ;> x x X X X X X X X X X X X X X X x x x > x >, x * x x •* 

. . . v v X X X X XIXIX X X X X X XX X X X X X X X * 1 = * XX 
ÍXXXXXXXXXXX) < X X X X X X X X XIX X. X X XX X X 
X X X X X X X X X X X X X X X X X X X X X X X X X X > X x X X X 

30 LET K$=INKEV$ 

A0 DEM MICRON ELcTP.OHICR 
4-8 CLS 

50 LET K=0 _ ^ 

51 PBINT "EãCOLHfl R UELOCTDRDE 


52 PRINT , , "PflRf) REPRODUZIR”, j 
-RRPIDO OXGXTE” .. "0” , "HODEkRoO 

, " 1” /"LENTO” , "2" 

53 PR INT i i t l r » > 1 f > . -r—pr 

54- PRIMT ”PRP.R TGCRR , .. DIGITE 

• • •• g •• 

'S5 PPINT 
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56 PRIUT "USE TECLftS’ 1 

57 FftINT "2 o. 5 6 

9" 

56 PfílWT "© UE R T VU 
I" 

5 9 INPUT X 

60 IP X=5 TH EH GOTO Xv?6 

65 POKE 15524- , PEEK tÍ6535 + Kí 

70 LET K =K 4-1 

80 IP K=99 THEN LET K =0 

90 LET fl=USR \ 

95 POR 1=3 TO ív;4F6> 

9t. NEXT I 


9 7 

Ir T £ y' ã — ' : ri 

" THE 

H GOTO 15 

190 

GOTO 65 



1 c 5 

LET K=0 



1 10 

IP IHKEV$ < " *' 

thf; . 

i * i : 1 i* * ** -1 

! V.' -X. _i- «_* 

120 

Ir INKEYj = ,B 

THEhi 

GOTO 120 

12 1 

IF INKEYS="M 

" THE 

!i r-iTn 4-3 


LET Kt=INKEY 

* 

*Y" 


" ~» / ~~~ 

IF CODE K$=@ 

THEN 

GOTO 11-0 

125 

POKE 16524- , Ci 

DDc X 

$ 

12 6-3 P O K E 16565+K 

. CODE 


127 

LET K=K+1 




*128 L ET K =K - l K = 100$ 

130 LET P.=U5R i iJ-Sii) 

14-0 GOTO 110 

193 REM NRO HPRQUE O REH 

199 REM 

200 S«UE "SOE" 

210 RUN 


A linha 1 REH.deve obrigatoriamente conter um «u 
nimo de 180 caracteres quaisquer. 0 objetivo dis 
to é reservar um espaço na ■eiória, ei endereços 
conhecidos, i.e., de 16514 a 16693 . 
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Para entrar os cadiqos. acrescente esta pequena 


rotina: 

502 FOR N=16514 TO 16545 
510 PRIM N. 

520 INPUT X 
532 PRINT X 
540 POKE N.X 
552 NEXT N 

Digite RUN 500 e ertre os 
çuir r err seus respectivos 


165U 

33 

16515 

O 

165 16 

0 

1 f, *=■ -J 7 

Cl 

16518 


Íb*ol9 


165 3 0 

“1 ■ 

16 5 21 

55 


25 

16 1 25 

62 

1 F.5S4- 

55 

i c c "■< cr 

J- _• -~r 


-■» — rr —\ cr 
_t •_* — •_/ 

36 

16527 

0 

185 23 

23 

T FFP-4 

17 

T “ — — «•> 

—- n 

x »_• 

• — 1 * — 

1655 1 

iO 

165 32 

u 

-T Ç- C ~? — 

* 

16 53Í 

• - o 

165 3 5 

56 


códigos listadcs a se 
endereços. 


i 5- 5 tf 

211 

1853*7 

*31 

1 6538 

t ~ 

ã 

; ^ * '• : — 

*75-1 

3 B 3 10 

6-8» 

1 8 5 x 


ii 54cL 

^ *" 

* 

165*15 

13 

lb5 1t» 

35 

16 5 * ! 7 

-T . 

lt-5 4- - 

0 V ~* ^ 

1634. *3 

Irl 

«—• 

. ~ •. ■ ..? 


* 5 5 1 

54 

16 55Z 

214 

i t- b t- • -> 

c 3 

RFFd 

1S '3 

16555 

.« ti- 

w- « _ 

16556 

157 

16557 
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16602 

36 

1^503 

37 

15 5 04 

30 

1 0 6 7: 3 

54 

16-30 

42 

15607 

4-2 

X 66 : 3 3 

M- — 

2. TI- C 3‘ ' ^ 

r~i - - 

106 10 

S 7 

16611 

57 

165 12 

57 

15613 

62 

lt>t> i 4 

57 

160 15 

57 

16S16 

62 

157 17 

56 

16518 

62 

16019 

50 

156 2G 

62 

16521 

50 

16622 

3 7 

16623 

64 

16524 

60 

16625 

42 

26026 

55 

16627 

57 

16626 

62 

1R 6 2 9 

53 

16030 

4 6 

16631 

52 

16632 

52 

16633 

46 

16634 

46 

16635 

46 

1663b 

47 

16637 

47 


16036 39 
16633 52 
16640 33 
1664-1 52 

16642 52 

16643 52 

16644 52 
16745 52 


16053 125 

ÍI^Ã5 35 

16561 62 
10563 56 


.1 •- »r c * 

50 

X55b b 

4 w 

1 6577 

-n*~. 

I 5 56 7 
15663 

v3 

3 

16569 

30 

15c /C* 


1557 2 

7 7- 


140 

16573 

33 

16574 

103 

16575 

34 

575 

79 

T 5^.77 

36 

15573 

4© 

16579 

b • 

15562 


15 6 3 1 

O 

16632 

0 

17533 

0 

16604 

0 

15535 

113 

17037 

54 

16507 

70 

-1 5500 

X 

16509 

55 

* 

R 7 

.1 — -~! * 

57 


16592 57 
15533 57 

16534 57 

16535 52 

16536 56 

16537 46 

16593 33 
1.5599 32 
16 500 15*3 
15601 34 
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NÃO ROOf o programa. Grave-o. 

esta altura voce já terá visto que os caracte 

res da 11uh 3 1 REM se alteraram para: 



Não foram entradas cs códigos dos endereças 16646 
a 16694, pois tratam-se dos códigos da última me 
lodia tocada. 

Para testar 0 programa use RUN 



ZX-MAN 

Turn your ZX8I or TIMEX 
SINCLAIR 1000 meo ar ar- 

cade type gane Computer wiih 
ZX-MAN. I00 : ® machine 
code makes this fast acling pro 
gram as much fun as beirg at 
thc arcades W th lhe joystick 
opuon you can have the real 
fed of game playing rever be 
fore availablc for your ZX8! 
or TIMEX SINCLAIR 1000. 
I6K required. SI4.95 


SOFTIn are americano 
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LABIRINTO 


Prograaa no código da aáquina para 2 Kbytes de RAM 
co« SLOV- 



99900 


0 objetivo é atravessar o labirinto no nenor espa 
ço de tenpo. A contagea é regressiva iniciando -se 
ea 99900 . 

A direção de deslocaaeato t dada pelas teclas: 
1234567890. para ciaa 
QUER! ASDF6 . para esquerda 
YU1QPHJKLIL, para direita 
ZXCVBNR . SPACE. SHIFT, para baivo. 


Carregando o Prograaa. Digite: 


1 REM <XXXXXXXXXXXXXXXXXXXXX> 
XXX> * • - X;- <XXX -■ XX • *XXXXXXXXXXXXXX 

XXXXXXkX xxxxxx xxxxxxxxxxxxxkxxxx 
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A linha 1 REH deve conter pelo menos 480 caracte 
res quaisquer, a fim de reservar os endereços de 
16514 a 16975 para os códigos a serem entrados. 

Na listagem, a linha 1 REN foi preenchida com ca 
racteres "X” . 

Apos conferir, grave por precaução. 


I* 





Os códigos, são valores, aqui listados no sisteia 
nuiérico hexadeciial, co« 2 dígitos. 

Oigite RUN e aparecerá no video: 

mE.vLOhDE" 

I B END . ? 

infone 16514. A tela será liipa e aparecerá: 

16514- 3C 

digite New Line sucessivanente e voce estará lendo 
os códigos dos endereços indicados. 

Quando a tela se esgotar,digi te CQNT e New Line. 

Caso voce digite : 

RR, o prograaa volta a pergunta 1? END.? 

SS, para por STOP 

EE, o endereço e» execução é subtraído e* 3. 

0 valor lido, 30, corresponde a 61 no sisteia deci 
■al e é o código do caracter "X". 

Caso voce entre ui valor ei 2 dígitos, o conteúdo 
do endereço indicado se altera para o valor entra 
do, sendo indicado. 

Entre os códigos listados a seguir: 
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165 

*i $ 

X »*■ 

51 


X Z Z Z' 

60 

155 

15 

75 


16552 

50 

155 


1 — 


16 560 

60 

155 

x. i 

55 


16561 

50 

155 

-•] ~ 

PE 


16 z 6 2 

50 

*i zz cr 
x x _ 

*i >“ 

r 

wp 


16553 

3 ,-V 
' t 1 

•’ s cr 

~r ■> 

— X- 

0 


16554 

50 

15 = 

— __ 

r. —’ 

í 


16555 

50 

155 

z z 

16 


1 Z Z Z Z 

.■> rs 
KJ KJ 

15 5 

— _2 

• » t 


16567 

4 0 

155 

2i 

»"• p # f 

* - L» 


*■ — — — — 

75 

x — _ 

”r rr 

W '**2 
*•* iZL 


16 5 6 1 

50 

i. z z 

— 3 

40 



0-0 

x — — 

5~ 

60 


15571 

00 

15 5 

— ~ 

60 


16 572 

00 

15 5 

5 1 

60 


x Z Z Z' 

.** (•* 

SC SC : 

155 

X. 

60 


16574 

•C 1 SC r 

155 

51 

52 


16 z 7z 

00 

155 


HZ 


16676 

00 

155 

3 3 

fiS 


X — — í 

00 

155 

34 

w ~’ 

IX 1 


1 'Z z — ' o 

00 

•1 F = 

-4» — 


D — 


: I* •t 

00 

155 

35 

5 3 


16580 

00 

15 5 


60 


16 6 51 

60 

15 5 

— — 

60 


15 5 6 2 


^ 

3 r 

•Zr .“V 

SC* 



50 

15 5 

-i ■» 

SC 

T Pt 


^ z z " - 

00 

15 5 

41 

60 


— Z Z Z' z 

4 0 

i “ * 
— — 

41 

15 


16 5 5 6 

50 

15 5 

43 

00 


1555“ 

■Zr rs 
SC' 

15 5 

.i .1 

X" X 

00 


16 5 5 3 

50 

15 5 

4 Z 

,~S :~S 

KJ SC : 


15 5 5 2 

60 

155 

45 

00 


16590 

50 

15 5 

4 ; - 

00 


Z. d Z' ^ _ 

50 

155 

45 

w s_ : 


16 5 2 2 

60 

15 5 

.i • 

00 


1659 3 

50 

15550 

00 


15594 

80 

16551 

00 


15 z 3 z 

50 

16 551. 

ry. 

kjkJ 


1655 = 

“5 

165 

:r - 

. ! . ! 

60 


1659“ 

X' SC ! 

16 4 

cr a 

76 


16 4 z 

00 

165 

1 . : 

60 


15523 

Z 

_ i.' 

16556 

w .■> 

sr 


166 C 3 

•> rs 

SC SC 

165 

T I 

50 

131 

16601 

“ 

SC SC 








15602 

00 

16503 

O 1» 

» I V t 

1560*1 

00 

15505 

00 

1 6 b 0 5 

00 

15507 

30 

1660 a 

00 

1660 S 

«-■ *-■ 

16610 

. i : 

16611 

50 

16612 

00 

16613 

50 

16614 

00 

15615 

50 

15616 

00 

15517 

60 

15 515 

00 

1561 - 

60 

16620 

00 

1662 1 

60 

16 5 2 2 

00 

1662 5 

■=- 

16624 

7 5 

16625 

= s 

16526 

00 

16627 

60 

- 6 b 2 5 

00 

16623 

~ ;*> 
t 

156 50 

00 

15 b 51 

60 

166 32 

00 

1 b- 6 5 5 

60 

16534 

.~v 
\L' \L‘ 

16 53 5 

■l.' 

- 1 • 




16 6 3 ~ 

30 

16635 

*7 p : 

166 39 

5 0 

16 6-40 

rs 

\L VJ 

16641 

rs .s 

16642 

xj 

16 6 4 3 

50. 

16 6 4 4 

00 

16645 

00 


16 54 - 

00 

1664" 

30 

1664 5 

00 

16649 

00 

16650 

00 

16651 

80 

16652 

76 

15653 

60 

15 5 54 

80 

15655 

80 

16556 

80 

165 5 7 

50 

16 5 b 5 

30 

16659 

50 

156 5 0 

5 0 

16 6 61 

= 

f 

16662 

50 

16* 6' 6- 3 

50 

: ^ b b - 

30 

1656 5 

80 


76 

. 566“ 

7 6 

— W W Z- 




15 5 5 9 

•v xJ 

13 5 70 


•» ~ ~ —»- 

•-s 



16 5 ^ - 

p ~ 

1 ^ — — r — 

3 =r 

' — 


15 5 " 4 


16 6 b 

-1 t“• 

-L _• 

±_ b b r b' 

1C 

1667" 

FF 

166 7 5 

* * V* ; 

16679 

90 

16660 

*♦- X 

— b b b 1 

w l_ ' 

16 6 5* 2 

3 D 

166 3 3 

3 D 

15634 

3 D 

1 5 6 8 b 

3 D 

1 ~ b 5 b 

3 D 

15667 

3 D 

165 6 b 

3 D 

16 5 5 3 

3 D 
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Pare. 

Confira os cediços digitados e grave c programa. 


Os códigos digitados até agora referem-se ac vídeo. 
Para testar esta retira, acrescente : 

5 ST OP 
SLOW e 

RUN USR i5524 

Caso esteja tudo correto, c labirinto será apresen 
tado no vídeo. 


Lntre os códigos listados nas próximas duas pági 
nas, en seus respectivos endereços. 

Afites de testar, volte a gravar o programa. 

Para redar em definitivo, inclua: 

2 SLOW 

5 RUN USR 165 2U 

Digite RUN e o programa rodará. 

As linhas de programa, em Basic, de 20 a 350, usa 
das para a edição dos códigos, poderão cu não ser 
apagadas, a seu critério. 

Observação: Não estac listados os códigos dos en 
dereços 16690 a 16/99. São endereços de reserva. 
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16800 

c H 

15 6 4- 4 

1H 

16581 

0C 

16841 

77 

16502 

4-0 

16846 

81 

16 50 2 

-1 1 

X X 

1684‘ ? 

80 

26804- 

10 

16545 

04 

16806 

80 

16549 

06 

16806 

-1 ~ 

X = 

15558 

” w 

2 

168 5“ 

1 X 

16551 

BI 

16 505 


16552 

28 

15 50 = 

•i 

1685 3 

FB 

— _ -u '<-• 


16854 

CD 

- 6 8 11 

f 1 .~v 

L v- 1 

15555 

p. p 

16512 


•1 = — •— —, 

82 

16 81 - 

w d 

16557 

7D 

16514- 

7 9 

16855 

d ! 

16 1 1 _ 

4-0 

16' 8 5 3 

6F 


2‘H 

16868 

Ê6 

■* >; ■ 

hJ *- 

11 3 6 1 

d x 

16 1 1 •_ 

A f? 

•*■ X 

15 5 52 

=. C : 

16519 

•* *1 

1515 3 

ífl E 7 

C.' —' 

16820 

I - 1 jt 

= “•* 

15 8 6 4 

.i 

X X 

16521 


16 8 6 5 

0E 

1 6 d C- d 

X = 

16866 

80 

16 5 2 3 

“?F 

1656"' 

x C 

16824. 

H 7 

15 5 6 í 

X X 

16521 

=. i-' 

16 5 6 3 

»• ? 1 

16 8 i 6 

= 

W X 

15 5 7 0 

E6 

1652“ 

85 

15- 5 7 _ 

.3. 

X 

16 525 

85 

165 72 

i= d 

16 5 ^ 9 

23 

16871 

05 

16 8 3 8 

36 

15874- 

11 

16831 

•" t"** 

O- »- 

X1.* - 

F2 

16832 

10 

15 5 7 6 

FF 

16 6 3 3 

FB 

11 1 «■ »' 

•i =• 

X 

16534. 


16' 8 71 

12 

16535 

3 D 

16879 

7 D 

16836 

FE 

16588 

Et 

16537 

1E 

16881 

58 

16838 

28 

16882 

28 

16539 

.T» C 
f — * 

115 3 3 

85 

1684-8. 

“F. 

16534 

11 

1684-1 

25 

16885 

81 

165 4-2 

2B 

16386 

88 

1654-3 

iv 

1688“’ 

18 
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DESTRAVA SOFTWARE, 16 K 


Alguns proclamas sao "blcqueados" , como por exem 
pio: qjando carregados dc casse tte . ,r saem rodando” 
e nlc se Dode para-los ou listá-los. 

A rotina a seguir, no cócigo da máquina, para es 
ses p roçrair as bloque ac os. 

Coloque esta rotina f ”acira do RAM TOP", nos ende 
regos após 32500. Por RUN USP 32500 será pedido 
o nome co programa a ser carregado. Diçite-c en 
tre aspas ou digite apenas duas asoas. 

Este programa é comercializado em cassette, pela 
Micron Eletrônica Com. Ind. Ltda. 


=* El 

/ | 

LD DE 

i O -c.t* í 

X ” 

00 

LD BC 

. 59 


u_' 

CfiLL 

999 5 

• L 


LD H . 

118“ 



RS7 1 

OH 

0 lI 

4.0 

LD HL 

... ! 185 95; 



PU5H 

hl 

— t 1 

0 “ 

CRLL 

X O C* J' 

55 

~ 

LH L L 

5- 9 9 



LD H, 

L 

— íT 

J 1 


X 0 R 2 

c;cr 

1 1 f 


d P Z 




PUSH 

HL 



POP 6 



0- 

CRLL 

19 51 




i-O*- 

r», — 

- 
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DEC HL 
LD (HL).I 
POP HL 
JR 


Os códigos a seguir,refere*-se aos caracteres do 
texto utilizado : 


si ~f kO r-í ^Lu T - C r s I - P 



• 1 x ■- 

L x — 

“j * .j f ■ Q _ p p 0 Lr K H H P. 

00 


29 

00 


2E 39 

00 


2P 00 

0L 


00 

00 



"*• — : 

' * X* 

2E 2: 

* * 

34- 

" Á 

V + 


32 2P 

~ J { 


29 

00 


■ *+• 

2h 

X — "" 

00 

39 


-• - 

- 


- r í 



**■ 

Lí 4- 


20 

» s - ! 


37 

2E 

26 

ry. 

W 1 i- 1 

26 32 
26 0 P 

00 


43 

00 


00 

00 


h3 

00 


F3 

00 


19 

00 


D 5 

00 


43 

00 


05 

00 


00 

00 


13 19 


ADVERTÊNCIA: 

Antes de pensar ei reproduzir prograias bloquea 
dos ou nào, consulte a legislação a respeito. 


26 

36 01 
El 

13 DE 


1 .IR 



SOFTWARE EM CASSETTE 
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Veja página 136 


CrS 9 . OCO . nr > 


Desoaunamos para todo o 3/*asil mediante che^u? no 
minai ccn acréscimo de 1 Z% para frete e e^balaçem 

Micron Eletrônica Con. Ind. Ltda. 

Av. São Joào 1 2202 Sào José dos Caioos SP 


CLUBE 


CLUBt ‘JACIOiA. üOS TK.'Nt/SlNL-i AIR 


jQitfwAL m:< RO tílIS 


Para recebe- cópia Op «ICRC BITS r maiores .níor-m d çóos sobre 
o Clube Vac.o-al (Jos T K /NC/SINCLAIR, Prvie C -$ 300.00 em cheque 
nominal oara I>aw»tl Arrterscn. Caiu Postal 1?_4õ4 - 04/98 -SP SP 
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HÂRD E FtfíMWARE 

Pâfl» AICtOCOAPU!&00*( S [X 50/B1 TK B2C Hl «000 


ACRESCENTE AO SEU MICRO UMA EPROM 06 2 KBYTES 
COM PROGRAMAS PRE-GRAVADOS 



Circuito leitor de ligado ent^e o miuít c j e»p*nsão 
de memória. lê programas de uma EPROM pré-gravada com o uso 
da função USR. 

Montado em placa de fiberglass coa 9a 10 w possui termina 
is em banho de ouro. Não requer alimentação e'aterna ou alte 
rações no micro. Pode ser usado com Eapansões e Printer. 

CIRCUITO LEITOR OE EPRCN C T$ 29.000,00 


VANTAGENS: 

PROGRAMAIS) PRONTO!S) PARA ROGAR, SEM OCUPAR ESPAÇO NA RAM. 
NÃO PRECISAM SER CARREGADOS DO CASSETTE. É SÓ LIGAR. 
FUNCIONAM COM OUTROS PROGRAMAS CARREGADOS VIA TECLADO OU K7. 


EPROM PRÉ-GRAVADA 

- FUNÇÕES I 

Cr$ 

17.000,00 


O mesmo prograa 

u do K7 


EPROM PRÉ-GRAVADA 

- RAM TOPER 

Cr$ 

17.000,00 


O mesmo prograa 

ta do K7 
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SOFTWARE EM CASSETTE 

***** "ICiOCOUPUflDDPtS 'I 82C Rt .'8CO0 IR 8!» := iQ? 


CONTABILIDADE 


Z. ICLHí D| PAGARÍRIO Fâ «, 

‘J' 1 6 * 

Pj,i """ ,unc «o-ece os cc-tra.cheq.es por ' u - t IO nir, 

tra cheq-,5. as c.nco qu.as 3 p JAPAS, -e acordo CO. os 

guia do 1615. 


CrS t..DOO.00 
resuoo dOS con 
:t dosco«:a e d 


II. •rOHIÃBIl .... 

* J lt > « C-S ii .000,00 

5aJI •— ra '"''' »-oui.a at» ■ iI , dotu 

Cí:, «” * «*“*•• « «'*««•• > li..,,,. d„ PO, eo 

d„o. coo nu.rros « «»<r«a. , toU... Int-.i .. p„ g „., o,d,„ador M J 

diqos. 


NI. CORREÇÃO «ORI ÃR11 DO IRC8! UMDQ f a$t 
C a -iqr as co-tas do iaobilirado através das OfUR. 
Deprecia os bens r corr, ;f a depr ír i a <ã 0 pelas op•„ 
•■POStc de Renda. 


I c * C 
pela corr*;ío d.rc.a 
. conforoe Cfcreto-l 


ei 


t. .OOO.OC 
cs saldos. 
1.598 do 


IV. C08Ias A RECEBER OU PAGia ÍASr 

•rquiva até (ta contas coo nj.ero. sacais, data de e-issio. 
de venc.ents e valor. tis,a 0 , rquivo lodp> 0- por 5atadt> ; 
cioento. oo as coo,as pagas. seop-e apresentando os totais. 
rjr - Qui tar ou apagar as contas. 


4.OCC.00 

agente ccr-ador. data 
P° r datais) de ven 
Pode-se inserir. alte 


comeu d« co.m», Ç cs oo i»« r.s. M 4 .ooc.oo 

c»rr.„ „ d. 1*4*. d„o, ... ;5 , tí d„,.b,o „ f . rn , ; , 

J “7 ‘• rr '“ 0 * ««l-r. «..d. ... fornecido . Ind. 

C! da cor,o C lo. d. ,, dfb.to- 


FUNCIONAIS 

~ : ^^ 

7' 5 “‘ r °“"“ •• «<*»• "* «««•• «rt.cooto aa oicr. t-.e fon.ie. 

tras. do 8asic. 

"7 8t " : ... . h - h *‘ d ' .. . .. . aa 

instr wÇ òes 6010 r &OSU8. 

BIOCI DELEl£; apagador de linnas de prograaa por blocos. 
p F|R- RIR; ..pri.e a quantidade de oeoória utiliaada. 

D prograo. .quando é lido do C.ss.tt./„i r.danqo* co. as instrues de uso no vi 
*... 0, V .ta. u . 1 . e as f^e. pode. ser usadas e. qualquer progr... „ ,. #ic#si ; 
regado via teclado ou cassette. 

II. RU TOPIR . ... 

»RSI 16 R * r i i, «nr rr 

■•no, , u , quatroetntos b,,„ d. rotina, .. cídi,. d. .»,wi.. p,..i„ 'o.,,,,,., •„ 

"7“" " 8 *"‘ - -«.. o Ow.ro. ,i. teclado ow «.I 

“’ ” rC,r “ 1 . . •“ 7 - 7 «• . . . Sarva „,ra 

c.rr„.r pr., r „„ c oo cód.,0 d, .i,w.n. p.ra loi.wra p DIS «S£P.BltR. 

UI. OISASSÍRBLfR t . cl 

.. . ,1S1 16 * Cr$ 5.OCO.00 

04d.,„ d. .. i0 for „ t . os a.d.r. 4 „ .. dOCioais. 00. 

C4d ‘ 5C ’ " <» —»■««« co.pl.«„. Po,„i .. 

«•pressora. I.terpr,,. todli „ i aitr „ (|ts ÍQ m 



JOGOS 


J CG0 Ç IV SlO* 16 * Cr * J- 000 - 00 
Dois proqraeas ee Basic. Visita ac Castelo e Cass;no para até g-atro joqadorrs. 

JOGOS III SIW 7 ■ Cr$ 3.000.00 
Cois proqraaas ee cósigo de eiguina. labirinto pla-0 e Paredlo. 

JOGOS II "SI ? » Cri 3.000.00 
Quatro proqrjaas ?• Basic. Jogo da telha, da forca. Dado para do.v e Bio-rítuo. 

JOGOS I "SI 7 1 Cr$ 3.000.00 
Quatro prograoas coo figuras e eovieentu. eo Basic. Invasores. âpague a trilha. 3a 
teria antiáerei * Desenhe na tela. Inclui adaptado para uso no todo SLOB. 

JCCO DE DAkíS - Verslo 11 - «ivel I F *> T 16 B Crl ^-O 00 - 00 
Elaborado ei Basic. Apresenta no video o tabuleiro e as pedras, «oce joga contra o 
aicro. Pode-se gra*ar o jogo para coutinuaçáo futura. 

JOGO Df IMftEZ "51 16 » Cr| 5.000.00 
Elaborada no código da aiguina. Apresenta o tabuleiro e as pegas oo «ideo. Peru.te 
afé 6 níveis de dificuldade, lista as jogadas e peru.te alterar o tabuleiro, duran 
te o jogo.ou para estudo. Ires uioutos de qravaçio eo cassette. 


DIVE RSOS _____ 

SOM POR SOÍ MIME "ST 21 Cr| 3.000.00 
Pfnos de uo «b,te de iub-roti"as no código da oáquina peruite a eaecuglo direta 
no teclado dc «icrr de uaa oitava coupieta, cou beoois e sostenidus. Aroazeua as 
Últiaas ceo notas tocadas e reproduz eo tres diftreotes velocidade». Produz soo d» 
retaoente no alto falante da I* oo através de uo auplificador de aúdio conectado a 
tooada "eic." do aicro. 


EOIIOH CÇ 1ÍXTQS E COPBÍÇiO Df P*0V*S f*ST \% * Cr| 4.000,Oft 
Edita te.tos coo facilidade de ediçlo. leitura, gravaglo • ispreasia do 240 li 
abas coo 32 caractere» cada. distribuídas M 40 paragrafos. 

0 prograoa Corr.çlo de provas corrige -o" provas coo -o- porguoto». arguito o gaba 
rito » as provas cou se noues et 15 letras. Furuece os uutas e poruite «Iterar o 
gabarito e as provas. 

CILCUIO Df CU510 l tSUlíSTIC* "51 16 * Cr| 4.000.00 
Calcula o custo final de uo produto . coe 49 íteoo de custos fiees.ceu quantidade, 
drscriçio. fornecedor * preço, aléu de sei» códigos para custes calculado» ee per 
centuais sobro o acueulado coe parcela» iuteruediárias de valores fi«es. Inclui u« 
progri*i de Estatística paro cálculo da uódia, desvio e erro padrlo. 

iifum faST 1 1 Cr% 3 - ooo w 

Quatro prograoas ee Basic. Jutor de aeuer. «ultiplicar. Tabuede e âlfanuelrice- * 
tabuada fereula dez questbes aleatória» de uaa das quatro operoçbe». Ofereço uutra 
chance ou caso de «rro.ou forneci a resposta certa, eu ceio de dosistlncie. 0 alfa 
nua ir ice é uu jogo do tipo adi.inh. o uúaeru cee letree « nuuero». 0 eicr. di es 

4lrn* 

MICRON 

- ELETRÔNICA COMÉRCIO E INDÚSTRIA LTOA.- : 


Amido Sflo Joóo, 74 - T.Won. 72-4194 - Sdo Jo« dc. Compo. - Sflo Paulo 



CLUBE NACIONAL 
DOS TK/NE/SINCLAIR 

O maior c'ube brasileiro para os usuãoos dos micros CP 200 NE Z800C 
TK82/85 ZX 81 e rsiOOO Como associado você receberá o lorna 1 MICRO BIT! 
regularmente a urna pubiitacão penódica para estes micros que è compietameni 
• ndependenre dos labncames 

E a maneira mais barata de conseguir programas No MICRO BITS há artigo 
sobre programação am BASIC e 'mguagem de máqmna dicas, canas, descontos n 
compra de livros e cassettes etc etc 
Para maiores detalhes, escreva pa r a 

MICRO BITS - Caixa Postal 1 2 464 
04798 - SÃO PAULO - SP 


